COULEUR DE" - 

528 LOCATE 8, 18: PRINT "CHACUNE B'EL > ZE- 
LE EST PRECISEE . PLUS HAUT EST INS x 
CRITE LA VALEUR" 

53» LOCATE B.28:PRINT "CE LA RE5I5T >YK 
ANCE , ENFIN A DROITE SE TROUVE LA 
FENETRE DE TRA-" 

540 LOCATE 8, 22: PRINT "V'fllL OUI PER >¥H 
«ET DE CALCULER LA VALEUR OU DE DON 
NER LA COULEUR" 

550 LOCATE 8,24:PRINT "SUIVANT LE M >8E 
ODE CHOISI (TOUCHE CD: MODE CHIFFRE 
S OU MODE COULEURS) " 
568 LOCATE 1,25:PRINT "UNE TOUCHE . >GJ 

579 CALL &.BB86 >ME 

586 BORDER 0:INK 0,9:INK 1,0 >VD 

590 MODE 2 >JD 

660 ■ DESSIN DE LA RESISTANCE :>R6 

618 ORIBIN 230,358 >HJ 

620 DEB >RE 
630 FOR F?.=70 TO 290:PLOT COS'.FWH >KB 
2,SIh(F7.)*12:NEXT 

640 PLOT 4,1 i : DRA«R 50,0 >RA 

650 PLOT 4,-il:DRAWR 50,0 >TT 

660 PLOT 14, 11:DRAWR 0,-190 >UU 

679 PLOT 9,11;DRAWR 0,-80:DRA«R -59 >FC 
,-29 

680 PLOT 19,11:DRAWR 0,-B0:DRAWR 50 /FF 
,-20 

690 PLOT -12,0:DRAHR -40,0 >UL 
790 ORIBIN 288,359: FOR F7.=l TO 110: >ME 
PLOT C0SiF7.)*i2,SIN(FM*12:NEXT 

719 FOR FX=250 TO 360:PLOT CDS(FÏ)* >UE 
12,SINiF7.)*12:NEXT 

720 PLOT 12,0:DRAWR 49,0 >RV 
730 ' DESSIN ENCART DES TABLEAUX >TA 
740 ORIBIN 9,9:DRA» 639,9:DRAWR 0, >UN 
399:PLÛT 0,0:DRA«R 0,399:DRAHR 639, 

9 

750 PLOT 160,0:DRAHR 9,399 >UM 

769 PLOTR -169,-169:DRA«R 399,9:PL0 >LH 
TR 9,-30:DRANR -399,0:PLOTR 399,199 
:DRAWR 0,-399 

770 LOCATE 22,10:PRINT "NOIR" >XC 
780 LOCATE 39,10:PRINT "NOIR" >XC 
790 LOCATE 38, 19: PRINT "OR" >VD 
890 LOCATE 28,2:PRINT "VALEUR : >PV 

";CHR$!19D 
810 ' TABLEAU DES COULEURS >RK 
B20 LOCATE 26, 12: PRINT "TABLEAU DES >8N 
COULEURS" 
830 LOCATE 24,15:PRINT "0 - NOIR >NY 

5 - VERT" 
840 LOCATE 24,17:PRINT "1 - MARRON M 
■ 6 - BLEU" 
B59 LOCATE 24, 19: PRINT "2 - R0U6E >Rlj | 
7 - VIOLET" 



,860 LOCATE 24,21:PRINT "3 - ORANBE » 
' 8 - 6RIS" 
870 LOCAIE 24,23:PRINI "4 - JAUNE ;t'Û. 

9 - BLANC" 
880 ' TABLEAU DES MULTIPLICATEURS >TG 
890 LOCATE 4,12:RRINT "MULTIPLICATE >KY 
URS" 

990 LOCATE 2, 15: PRINT "0 - s 1 ":CH >JX 
R$1191) 

910 LOCATE 2,16:PRINT "1 - s 10 ":C >KO 
HR*(191! 

929 LOCATE 2,17:PRINT "2 - x 100 ": >LK 
CHR*U91> 

939, LOCATE 2,18:PR1NT "3 - s 1000 " .'MF 
;CHR*(191) 

940 LOCATE 2,19:FRINT "4 - •/. 10000 >NC 
":CHR*(191) 

950 LOCATE 2.20:PRINT "5 - ;< 100090 ;NZ 
";CHR*(191) 

969 LOCATE 2,21:PRINT "6 - x 109000 ;>PY 
":CHR*(191! 

970 LOCATE 6,23:PRINT "OR : s 0.1 " >MP 
:CHR1(191) 

980 ' TABLEAU EXPLICATIF 



>TH 
:PRINT "R E S I S T >F« 



990 LOCATE 
R" 

1000 LOCATE 2,6;PRINT "Z X : COUL1/ >JA 
CH1F1" 

1910 LOCATE 2,7:PRINT "C V : COUL2; >JC 
CHIF2" 

1020 LOCATE 2,8:PRINT "B N : COUL3/ >KB 
MULT. " 

1930 LOCATE 2,10:PRINT "ENTER : VAL >JH 
IDER" 

1940 INK 0, 13 >AC 

1050 ' FENETRE TRAVAIL >XJ 

1060 WNDOM *1, 51, 79,2.24 >TF 
1079 CLS tl >LC 

i960 DATA OR,0. 1,0, NOIR, 1,1, MARRON, >FY 
10,2,ROUSE,190,3,ORANSE,1000,4,JAUN 
E, 10900, 5, VERT, 100000, 6, BLEU, 108909 
0,7,VIOLET„8,GRIS,,9,BLANC, 
1090 RESTORE 1080 >LU 

1190 READ COUL$i9),MULT*(0) >VY 
1119 FOR F=l TO 19:READ NRCLSF1.COU >ZC 
L*(F),MULT*(F):NEXT 

1129 MDEC=1 >VJ 

1130 LOCATE *1,10,12:PRINT*1,"UNE T >KX 
OUCHE" 

1149 CALL MB96:SÛSUB 1219:MDCI="CH >VA 

IFFRE":BOTO 1190 

1159 K«=INKEY*tIF K*=" THEN 1159 >Z« 

1168 IF UPPER»(K$i="C" THEN MDEC=MD >FC 

EC+1:IF MDEC)2 THEN MDEC=1 

1170 IF MDEC=1 THEN MDC*="CHIFFRE" >YF 

ELSE MDC*="COULEUR" 

\ 189 ON MDEC GOSUB 1210, 1439 >VC 

1190 LOCATE #1 , 3, 23: PRINT»! . "MODE : >BK 



. ":MDM;" TOUCHE <C>" 

' 1200 GOTO 1150 >LH 

1210 'MODE COULEUR >XB 

1220 LI8NE=1 ,'FH 

1230 CLS#l:LOCATE #1,3,23:PRINT#1," >V2 

MODE : COULEUR" 

1240 F=1:S=1:H=0 )6J 

1250 LOCATE tl,3,5:PRINTtl, "COULEUR :>BR 
1 : ";C0UL$(F);SPACE»(6-LENlC0UL$t / 

Fi)) 

1260 LOCATE «1,3,13:PRINT#1, "COULEU >CV 

R 2 : ";C0UL*(6i;SPACE*(6-LEN!CÛUL* / 

(S))) 

1270 LOCATE M,3,20:PRINT#1,"COULE'I >CX 

R3 : ":C0UL*(H);SPACE*(6-LEN(C0UL$ 

(H) ) ) 

1289 Kt=INKEY»:ÏF K$="" THEN 1288 >ZE 

1298 IF UPPER»(K*)="Z" THEN F=F-1:I >OU 

F F<1 THEN F=10 

1300 IF UPPER»(K$)="X" THEN F=F+1: I >QF 

F F>10 THEN F=l 

1310 IF UPPER*(K*i="C" THEN 6=6-1:1 ;>Q0 

F 6<1 THEN G=10 

1320 IF UPPER*(K*)="V" THEN G=6+1:I >8K 

F 6>10 THEN 6=1 

1330 IF UPPER$(K$)="B" THEN H=H-1:I >PD 

F H<0 THEN H=7. 

1349 IF UPPER*(K$Ï="N" THEN H=H+1:I >PT 
F H)? THEN H=0 

1350 IF K*=CHR*(13) THEN 1370 >VQ 
1360 ON LIGNE GOTO 1259,1470 >VB 
1370 VALEURl»=STR$(NRCL(F)i:VALEUR2 >XJ 
S=STR$ (NRCL (G) ) : VALEUR3*=VALEUR1$+V 
ALEUR2I: VALEUR=VAL (VALEUR3$i »VAL (MU 
LT*(H!) 

1388 LOCATE 22,10:FflINT COULKFiiSP >CD 

ACE*(6-LEN(C0UL*iF))! 

1390 LOCATE 30,10:PRINT C0UL$(6);SP >CF 

ACE*(6-LEN(COUL*(G!)> 

1409 LOCATE 38,18:PRINT COUL*(H):SP >CH 
ACE*(6-LEN!C0UL*(H))) 

1410 LOCATE 37,2:PRINT VALEURjCHR»! >LL 
32!;CHR*(191):SPACE*(11-LEN(STR*(VA 
LEUR) +CHR$ C32) +CHRÏ ( 1 91 ) ) ) 

1429 RETURN >FA 

1438 'MODE CHIFFRE >YA 

1449 LI6NE=2 >GC 

1459 F=1:6=1:H=0 >HB 

1469 CLS#1: LOCATE #1,3,23:PRINT#1, " >VL 
MODE : CHIFFRE" 

1470 LOCATE #1,5,5:PRINT#1, "CHIFFRE >UA 
1 : "iNRCL(F) 

1480 LOCATE #1 , 5, 13: PRINT#1 , "CHIFFR >VA 
E 2 : ";NRCL<6) 

1490 LOCATE #1,2,20:PRINT#1,"MULTIP >PE 
LICATEUR : "; MULTt (H! ; SPACE$ (S-LEN C 
MULT$(H))i; 
' 1500 BOTO 1280 >MEB 



D 



U 



DIVISION 



T210 IF 
; PRINT 



•Hervé DURAND 




Voici un programme de démonstration de 
division (sans virgule) avec participation de 

l'élève. 

L'enfant choisit un dividende et un diviseur 

de 6 chiffres maximum. L'ordinateur dessine 

la division et demande le premier quotient, 

s'il est bon l'ordinateur pose la soustraction 

et le reste et attend le quotient suivant. 



l'enfant trouve du 
| premier coup il gagne 5 
"centimes (variable c$ 
définie par les symboles du début) et 
la somme gagnée s'affiche en fin de 
partie ; donc élève surdoué s'abstenir. 

5 '***** DIVISION ***** >FE 

18 SYMBQL 248. 8, 8,3,28, 32, 64, 128. 12 >CA 

8 

28 SYMBOL 249,8,126,129,8.126,98,96 

,68 

38 SYMBOL 258,8,8,192,56,4,2,1.1 >YA 

48 B$=CHR$(24B)tCHR$(24?)+CHR»(259) >BR 

50 SYMBOL 251,128,128.192,96,68,31, >DN 

3,8 

68 SYMBOL 252,6.182.68,8,8.129,255. >DA 

126 

78 SYMBOL 253,1,1,3,6,68,248.192.8 >AF 

88 -f*=CHRÏ(251 i+CHR* (252Ï +CHR* (253i >BM 

98 c*=e$+CHR*iB)+CHRS<S)+CHR»i8S+CH >KH 
R$(18)t« 



La partie musicale en fin de liste est 
censée rappeler la chute d'une pièce de 
monnaie, vous constaterez qu'elle est 
perfectible, je fais confiance pour cela 
à l'imagination des lecteurs. 



■DZ 



188 PRINT CHR$i7) 


;>LF 


1» ON ERROR 80T0 100 


>PV 


128 MODE 1 : HINDOU #3,6,40,6,25:z=0 


>QJ 


:resut=8:s=0 




138 HINDOU #4,28,39.14,24 


>TL 


148 HINDOU #5,30.3B.6,15:PEN #5,2 


>ZJ 


158 HINDOU #2,5,35,2, 4: PAPER »2,2:P 


>PT 


EN #2,3:CLS 12 




166 FOR i=l TO 6:a(i)=8:a$(i>="0":N 


>FE 


EXT i 




178 LOCATE #2,18,2:PRINT #2."D I V 


>NF 


I S I N 




180 PEN 1: PAPER 8: BORDER 18 


m 


198 LOCATE 19,t8:INPUT "dividende l 


>BN 


iax=6!";a*:al=LENia*) 




288 FOR i=l TO aka«*iii=MID*ia$.i. 


;>XH 


1): IF ASC(a»»(i)K48 OR ASCiatrttil) 




>57 THEN 100 ELSE NEXT i 





HEN CLS#3: LOCATE 18.28 . 
îF'RINT "dividende trop qrand! ; ':BÛTO 
198 



viseur (ma .-D 



V 



220 LOCATE 18,12:INPUT 

x=6)":b*:l=LEN(b») 

230 FOR )=1 TO l:b«*(.j)=MID$(bl..!.l >VA 

) : IF ASC(b»*(.i)K4B ÛR ASC foi»$i,i )i> 

57 THEN 198 ELSE MEiT .1 

248 IF 1)6 THEN CLS#3: LOCATE 10.22 >EF 

:PRINÎ "diviseur trop qrand!":BÛTO 

228 

250 Pû=l+l:dit=al-l:»i=19-al-l >ZH 

268 HINDOU #l,Ni,19.6.12+3*Dit >ÏA 

278 a=VALia»):b=VALibt! >RK 

288 IF b=l THEN LOCATE 10,24:PRINT >ÏM 

"petit fiqolo !":F0R i=l TO 1088:NE 

XT i:CLS#3:S0T0 228 

298 IF aib THEN LOCATE 10 ,24: PRINT «U 

"dividende < a diviseur" :F0R i=i 
TO 1888:NEXT i:CLS#3:GOT0 198 
300 60SUB 638 >HB 

310 restera*: restera ,'RJ 

320 FOR i=i TO al:a*ii)=LEFTstat.i) ,'CV 
ia(ii=VALia$ii!!:NEXT i 
330 FOR 1=1 TO l:b*(i)=LEFT$(bl.iil >BB 
b!ii=VALlb*(i!):NEXT l 
340 n=i:i=0 /VF 

358 IF n>l THEN BOSUB 588: ELSE c=l >AV 
368 FOR 1=1 TO LEN(reste$l >UA 
370 reste*(il=LEFT«(reste*.iiireste >BX 
(i)=VAL(reste*(i)) 

380 NEXT i >m 

398 IF restetlXb AND reste<l+i)C0 >MD 

AND n=l THEN c=2:l=l+l:po=PO+l 
408 IF n>l AND reste{cK=blll AND r ;AE 
este(c+l)<>0 THEN c=c+l 
418 resu-re5te(c)/b(l!;re5u=Fnire5 >HG 
u) 

420 IF n=l THEN reste=resteili:rest >NC 
e»=STR$ireste):PLOT 288-16*ai.3è4:l 
e- (LEN(reste»)-l)*16:DRAWR le, 0.3: 

DRAHR 8,16:DRAWR -le,8:DRAWR 0,-16 

438 IF n>l THEN lec= LEN( reste» (cl) >NR 
-kORISIN «i*16,19*16:PL0T (p-l)*16 
,16*U-q):DRANR lecH6,0:ORIGIN 0,0 
:M0VE 336,304:DRA«R 16,0 
440 IF resu*b>reste THEN resu=resu- >8E 
llfflTO 448 

450 0RI6IN 8,0:MOVE 422,8:BRA« 634, >VZ 
8,3:DRAW 634,280:DRAW 422,200:DRA« 
422,8: jo=0:6OSUB 838 
468 resut =resut*18+resu:L0CATE 21, >W 
8: PRINT resut 

478 aa=re5u*b:aa$=STR»iaa)::!=LEN(aa >JB 
*)-l 
♦ 488 reste=reste-aa >PL 



V^ 



490 reste$«STRJ(reste):rx=LENtreste 

500 p=po-x:q=n+l:Pq=aa:6ÛSU6 748 

518 q=q+l:LOCATE #l,p+i.q:PEN #1,2 

:PRINT Kl,STRING$(x,CHR*il54ii:PEN 

•1.1 

520 p=po-rx:q=q+l:pq=reste:GOSUB 74 

9 

536 IF aU+Hn)=0'TH£N BOSUB 760:60 

SU8 90») 

546 IF resten) THEN p=p+l 

55») reste=restWlê+ta(l+l+iii-(a(l+« 

)*10)) 

560 rests*=5TRf (reste) :pq=reste:60S 

UB 74a 

570 n=n+3:«=mtl:SBT0 350 

590 FOR 1=1 TO LENia») 

600 reste(ii=0:re5tei(i)="0" 

61» NEXT i 

620 PO=PO+i: RETURN 

638 CL5 #3 

640 PEN 2:F0R i=l TO 3*dif+3 

650 LOCATE 20,5+i:PRINT CHR*(149):N 

EST i 

660 LOCATE 20.7:PRINT CHWI151) 

670 FOR 1=1 TO 1+dH 

68» LOMTE 20+i,7:PRINT CHR*(1541i« 

EXT l 

690 PEN 1 : LOCATE #1,2,1:PRINT «1, a 



■Hf $ 



QD 



700 LOCATE 22,6:PR1NT b* >TK 
710 PRINT #5, "m******"; >YK 
"* SCORE *": 



720 LOCATE # 5,3,4:PRINT#5.SC0 >YC 

730 RETURN >ZF 

740 IF P=» THEN P=l >NK 

750 LOCATE «,P,q:PRINT #l.pq:RETUR >FR 

N 

760 PRINT CHR*(7i:PEN 2:PAPER 3 >¥F 

770 LOCATE 21,8:PRINT CHR$(24kresu >FL 

780 FOR 1=1 TO 200; NEXT i >RC 

790 2=1+1 >HE 

800 IF :O10 THEN 770 ELSE PRINT C >DE 

HR*<24i;60SUB 940:RETURN 

810 PAPER 0iPEN 1: RETURN >UC 

820 FOR h=l TO 1200:NEÏT h:CL5#4 >ZK 

830 PRINT #4. "combien de tois":b," ,>XU 

dans": reste 

840 LOCATE 22+m, Si INFUT "",,1 >WE 

850 IF j Oresu AND jo=3 THEN CLS* >BA 

4:PRINT# 4, "non c'etait";resu: .10=0: / 

RETURN 

860 IF j<resu THEN CLS » 4:PRINTt 4 >W1 

,,"non trop petit", "reessave":jcF j 



jo+UBOTD 820 

870 IF j=resu AND ,10=0 THEN CLS * 4 >QK 
:PRINT I 4, "oui": BOSUB 920:RETURN 

880 IF .presu THEN CLS#4:PRINT #4.C >BÛ 
HR$(7);"oui":RETURN 

890 IF j>resu AND ji=resteic)/b<lSA >ER 
ND resu <>0 THEN CLS#4:PRINT# 4, "no 
n mais j'aurai fait la inertie e 
rreur"iPRINT# 4, "reessaye": jo=jo+l: 
60T0 S20:ELSE CLS #4:PRINT # 4. "non 
trop grand", "reessaye": jo=,io+l: 
SOTO 820 

900 PRINTI4, "une autre ? to/nj " M> 
910 J»=INKEV*:IF UPPER$( j*)="0" THE :>KU 
N 90 ELSE IF UPPER*U$!="N" THEN 
930 ELSE BOTO 910 
920 BOSUB 940:s=s+l:SCO=SCO+5:LOCAT >Ufl 
E 3,6+niPRINT c*:LOCATE #5.3,4:PRIN 
T#5,SCD:RETURM 

930 CLS#4;PRINT I4,"tu as qaqne ";s >NK 
co: i xentiies":sco=0:END 
940 EN! 4.1,0.1: ENV 4,1.13.1,12.-1 ;GE 
,4:ENV 5,1,13,1.1,0,16,12,-1,4 
950 SOUND 129. 36,0,15, 4. 4,5:F0R i=i ;AF 
TO 100:NEXT i:SOUND 129.34,0,15,4. 
4,5:F0R i=l TO 100:NEXT i: 
960 SOUND 129,32,0.15.5,4.5;FOR 1=1 >ZJ 
TO 200:NEXT ilRETURN 
970 END >TK« 




LES COMMANDES 

• Flèches G & D : choix du sens de 
formation du train au niveau de la 
page de présentation. Ensuite 
déplacement du curseur sur les 
formes ou les couleurs. 



• ESPACE : pour valider. 

• COPY : pour corriger (efface le 
dernier wagon affiché). 

• ESCAPE : pour revenir à la page 
de présentation 

• O & N ; rejouer ou abandonner 
en fin de partie. 



LE PETIT 
TRAIN 

// s'agit d'un éducatif 
de niveau maternelle 
(formes & couleurs), 
inspiré (fortement) 
d'un programme paru 
dans "MOS POUR 
TOUT PETIT" de D. 
NIELSEN. 
Le but est de 
reconstituer un train 
en formes et en 
couleurs. 

•Pierre MAROT 



aj 



18 ' LE PETIT TRAIN - Pierre >LA I 
MftROT (d après D.NIELSEN) 

28 ' >LB 

38 ON BREAK SOSUB 46:G0T0 118 >« 

48 RUN >PD 

58 'M******************* MODE D'EM >LE 

PLOI ****************************** 
********** 

68 ' : Choix du sens d'à >LF 
rrivee des voitures 

78 ' : Déplacement de la >LG 
flèche 

88 ' ESPACE : Valider >LH 
98 ' COPY : Annuler la derme >LJ 
re voiture 

188 ' ESC(2 fois): Retour au choiK >RB 
du sens d'arrivée des voitures 
118 '«M*********************** INI >RC 
TIALIBATION MUSIQUE .*************** 
********** 

128 DM gamme'/. (12): FOR xï=l TO 12: R >ïA 
EAD ganmeSMIiNEXT 

138 gamme»»" a-b b c+c d-e e t+f 9+ >QF 
g":DËF FNm*(5t,3)=HID*(s*,5,l> 
148 DATA U77,îi7ec,4647,W>47,!t5ed,i >DL 
598 

158 DATA Si547,8i«c,8i4b+,St47«,M3i,& >DH 
M 

168 ENV 1,15,1,1 >«K 

178 ENT -1,6,-1,1,12,.!, 1,6, -1,1 >«C 
188 ENV 3,2,5,2, 15,-1,9 >PC 
198 ENV 4.2,4,2,12,-1,18,18,8,15 >XN 
288 'tu************** 6RAPHISME : >RC 
LOCO ïi WAGONS ********************* 
********** 

216 CALL 8M4E >NE 

228 SYMBOL AFTER 228 >PQ 

238 SYMBOL 221,192,128,128,192,224, >LB 
224,48,248 

248 SYMBOL 222.3,49,49,255,255,255, >FZ 
8,255 

256 SYMBOL 223,248,248,252,61,255,1 >KX 
89,152,24 

268 SYMBOL 224,255,255,255,8,255,11 >JL 
5,115,33 

278 SYMBOL 225,127,127,127,64,255,1 >6B 
4,i4,4 
286 SYMBOL 226,255,4,4,7, 7,71, 78,71 >BB 

298 SYMBOL 231,3,1,1,3,7,7,12,15 >YF 

386 SYMBOL 232,192,148,148,255,255, >KY 

255,6,255 

318 SYMBOL 233,31.31,63,188,255,189 >GM 

.25,24 

328 SYMBOL 244,255,255,255,6,255,26 >KD 

6.286,132 

336 SYMBOL 245,254,254,254,2,255,11 >JD 

2,112,32 



346 SYMBOL 246,255,32,32,224,224,22 >JX I 

6,98,226 

356 w*(l)=CHRt(233)+CHR*(244)+CHR*( >BH 

245) +CHR» (11) +CHR* (BI+CHR» (8) +CHR» ( 

8)+CHR$(231!+CHR*(232)+CKR*(246)+CH 

R*(18) 

368 «1»(1)=CHR$(233)+CHR*(244)+CHR* >FB 

(245) 

378 u2*(l)=CHR*i231i+CHRti232)+CHR* >FZ 

(246) 

386 1(11=3 >6E 

396 w»(6)=CHR*(225!+CHR*(224i+CHR*( >SB 

223) +CHR* (11) +CHR* (8) +CHR» (8) +CHR» ( 

8) +CHR» (226) +CHR* (222) +CHR* (221 i +CH 

R*(18) 

486 wl»(6!=CHR*(225)+CHR»(224)+CHR» >FP 

(223) 

416 w2»(8i=CHR*(226ï+CHR*(222)+CHR» >FN 

(221) 

428 1(8) =3 >FJ 

436 SYMBOL 247,8,8,8,8,6,6,64,94 >YA 

448 SYMBOL 248,6,8,8,8,6,8,2.122 >YK 
458 SYMBOL 249,94,94,127,255,127,56 >GL 
,56,16 

468 SYMBOL 256,122,122,254,255,254, >HB 
28,28,8 
■ 476 M*(2i= CHR»(249)+CHR»(256i+CHR* >LT 
(lt)+CHR»(B)+CHR*(8)+CHR*(247i+CHR* 
(248)+CHR$(18) 

486 «1»(2>= CHR«(249)+CHR*(256) >XG 
496 »2»(2)=CHR*(247)+CHR»(24B! >XU 
588 1(21=2 >FJ 

516 SYMBOL 252,6,8,127,127.66.68,68 >DD 
.68 

528 SYMBOL 253,8,6,254,254,34,34,34 >DC 
,34 

538 SYMBOL 254,127,127,127,255,127, >JD 
56,56,16 

546 SYMBOL 255,254,254,254,255,254, >HU 
28,28,8 

556 w»(3)=CHR»(254)+CHR»(255)+CHR»( >KP 
1 1 ) +CMR* (Bl+CHR* (8) +CHR* (252) +CHR» ( 
253)+CHRt(16) 

566 wl»(3)=CHR*l254)+CHR*(255i >XK 
576 «2»(3)=CHR$(252!+CHR*(253> >XK 
588 1(3)=2 >GH 

598 '***************** AFFICHAGE PE >TE 
RMANENT *************************** 
********** 

686 KEY DEF B,6:KEY DEF !,8:KEY DEF >EN 
47,8 

618 SPEED INK 25,25 >MN 

626 INK 6,1: INK 1,1: INK 2,1: INK 3,1 >UV 
ilNK 4,1:INK5,1:INK 6,1:1* 7,1:IN 
K 8,1:INK 9.UINK 18,1:INK 11,4,1:1 
NK 12,1:PAPER 6:BORDER l:MODE 6 
636 LOCATE 3,1:PEN 4:PRINT STRINBtî >EX 



16,146):L0CATE 3,2:PRINT STRIN6*U6 

,143):L0CATE 3,3:PRINT STR1NG»(16,I 

31) 

648 LOCATE 4,2:PEN 6:PAPER 4:PRINT" >WO 

LE PETIT TRAIN" 

656 PAPER 16:F0R i=16 TO 19:L0CATE >QQ 

3,i:PRINT STRING»(6,32):L0CATE 18,i 

:PRINT STRINB$(4,32):L0CATE 15,i:PR 

INT STRINB$(4,32):NEXT 

668 PEN 8:LOCATE 5,18:PRINT w*(l):L >LS 

OCATE 11,18:PRINT H»(2):L0CATE 16,1 

8:PRINT w»(3) 

678 PAPER 8: FOR i=21 TO 24: LOCATE 1 >RD 

,i:FOR j=i TO 7:PEN j:PRINT CHR*Î14 

3)+CHR*(143)i:IF ,i<7 THEN PRINT" "; 

688 NEXT j,i >ED 

696 LOCATE 1,7:PEN 8:PRINT STRINB»! >MA 

26,288) iPEN INT(RND*7)+1:L0CATE 2.6 

:PRINT x»(l); 

766 FOR i=5 TO 19 STEP 2:PEN INT(RN >HL 

D*7)+l:LOCATE i,6:PRINT wtUNTtRND* 

2i+2):NEXT 

716 LOCATE 1,12:PEN 8:PRINT STRIN6» >JB 

(28,268!:PEN 6:L0CATE 4,11:PRINT «* 

(ii;L0CATE 15.11:PRINT w$(6) 

728 PEN 1 1 : LOCATE 8,11:PRINT CHR»(2 >YY 

42):PEN 12:L0CATE 13,11:PRINT CHR»! 

243) 

738 INK 6,1:INK 1,B:INK 2,11:INK 3, >TB 

9: INK 4,24:INK 5, 15: INK? 6, 6: INK 7,2 

6: INK 8,8:1»: 9,13: INK 16,14: INK 11 

,24,1: INK 12,1,24 

748 r*=INKEY*:IF r*="" THEN RANDOMI >NP 

ZE TIHE:S0TO 748 ELSE r=ASC(r») 

756 IF r=242 THEN force=l:SOTO 796 

766 IF r=243 THEN *orce=2:60TD 796 

776 GOTO 748 

788 f=6:l=8:nw=9 

798 UINDOW #1,1,26,5.12:PAPER *1,8: 

CLS tl 

866 '************* TIRAGE AU SORT D 

ES FORMES !,. COULEURS ************** 

********** 

818 RANDOMIZE TIME 

828 FOR 1=2 TO 9:f (i)=INT(RND*2)+2: 

NEXT: f( 11=1 

838 RANDOMIZE TIME 

848 FOR .i=l TO 9:c(i!=INT(RND*7)+l: 

NEXT 

856 '************************* ARRI 

VEE DU TRAIN ********************** 

********** 

866 LOCATE 1,7;PEN 8:PRINT STRINB»! 

28,268) 

878 j=«:TA6 

886 car/.=l:ca2:<:=l;viK=16:hh=8:hb=2 

898 cal»="r4G4E4D4C5BÎS8F4B4F4E4D5C 



>BE 
>BH 



>LJ 
>GA 



>NY 
>PC 



>NA 
>GN 



)TD 



>ZC 
>DB 
>BN 



f24l 



3S8E5E3F4E4D4C4B4C4D4E4CiA2B2FlE2B5 
C3A4C. " 

980 ca2$= il r2C2E2q2E2C2E2q2E2q2S2q2B >WB 
2q262g2S2e2E2e2£2q2fi2q2B2C2E2g2E2C2 
C2D2+D2e2E2e2E2e2D2e2D2t2F2«F2<2F2 
f 2F2C2E2g2E2g2D2g2D2C2E2C2F4C, " 
910 SOSUB 1638 >OB 

92» FOR 1=19 TO 1 BTEP -0.4:j=j+0.3 >XU 
45:BRAPHICS PEN cil) 
93» HÛVE l*32,319:PRINT wi$!l)::NOV >BZ 
E i*32,335:PRINT b2$(1); 
948 FOR s=3 TO.J STEP 2:6RAPHICS PE >NK 
N ciix+11/2) 

95» HOVE i*32+x*32,319:PRINT »l*if( >RN 
(K+i)/2) ): :MOVE i*32+;<*32, 335: PRINT 
w2*(f ; tx+l>/2) ) ; 

968 NEXT x,i;TABQFF >PH 

97» LOCATE 1,12:FEN 8:PRINT STRINGt >LK 
(28,208! 

938 ************************* CLAV >TH 
1ER ******************************* 
********** 

99* PEN 18 >SK 

1888 FOR i=l TO 9 >BH 

1018 x=6:LOCATE 6,15:PRINT CHR*(24i >B« 
) 

1020 IF INKEYtO" THEN 1020 >UE 
1838 r$=INKEY*;IF r*=" THEN 1030 E >PA 
LSE r=ASCir$S 

1048 IF l-=241 OR r=240 OR r=ll OR r >LC 
=18 THEN 1030 

1050 IF r=242 OR r=8 THEN dx=5*ix>6 >BC 
] 

1868 IF r=243 OR r=9 THEN dx=-5*(x< >DV 

16) 

1878 IF r=32 OR r=B8 THEN rt(i)=x\5 >HH 

:LOCATE x,15:PRINT" ":BOTO 1118 

1080 IF r=224 ANC" i>l THEN LOCATE x >AK 

,15:FRINT" ":60T0 2240 

1090 LOCATE x,15:PRINT" ":x=x+dx:L0 >PR 

CATE x,i5:PRINT CHR»!241)idx=0 

1100 BOTO 1030 >LB 

1110 FOR k=l TO 500: NEXT >RH 

1120 x=l:LOCATE x,25:PRINT CHR»(248 >DW 

) 

1138 IF INKEY10"" THEN 1130 >VA 

1140 r$=INKEY*:IF r*="" THEN 1140 E >PE 

LSE r=ASCir$) 

1150 IF r=240 OR r=241 OR r=U OR r >LB 

=10 THEN 1148 

1160 IF r=242 OR r=8 THEN dx=3*ix>l >BX 

) 

1170 IF r=243 OR r=9 THEN dx=-3*(x< >DY 

19) 

11B0 IF r=32 OR r=88 THEN rc(ii=x\3 >PH 

+1:LÛCATE x,25:PRINT" N :60T0 1228 

1190 IF r=224 ANB i>l THEN LOCATE x >AN 

,25:PRINT" ":BOTO 2240 



1280 LOCATE x,25:PRINT" ":x=:<+dx:LO 

CATE x,25:PRINT CHR$(240i:dx=8 

1218 BOTO 1140 

1228 '********************** ARRIVE 

E DES WAGONS ********************** 

********** 

1230 BRAPHICS PEN rc(li:TA6 

1248 IF force=2 THEN 2030 

1250 FOR i-20 TO 1+1 BTEP -8.4 

1260 IF rf(i)=l THEN SOUND 1,0,13,0 

,1,0,1 ELBE SOUND 5,1978,4,9,0.1,0 

1270 NOVE 32*j,239:PRINT xltirtiiii 

+" " ; : MDVE 32*.j,255:PRINT »2*irf(ii 

1280 IF rtîl)=i THEN FOR k=l TO 58: 
NEXT ELSE FOR k=t TO 18:NEXT 
1298 NEXT j 
1388 TA60FF: 1=1+1 (rf(i)i:lt-!i)=l: IF 

1>17 THEN nw=i:i=9 
1318 NEXT 1 
1320 'm****************** ANALYSE 

DES REPONSES ********************* 
********** 

1330 IF tora=2 THEN 2190 
1340 FOR 1=1 TO m 
1350 IF rffi)Of(i) OR rcli)Oc(i) 
THEN MOVE il+lr ( i) )*32, 223:DRAWR -i 
(t-f(i))*32,32,6:N0VER 0,-32:DRAM 1 
irf (il 1*32,32, o:WVE il+lr (1)1*32-4 
, 223: BRAWR -1 M ( 1 ! ! *32, 32, 6: MOVER 
0,-32: DRAW 1 irfii! 1*32,32,6: t=f+l 
1360 NEXT 

1370 IF f>0 THEN 1518 
1388 ***************************** . 
* GAGNE *************************** 
********** 

1390 cal*="r9C6E9B6A6C9qr9C6D9E9B9B 
r9C6E9D6A6C9gr3A6C3A6B6A6g6B9Cr6C6C 
2b2+g2B6e6Ar6A9qr6C6C6D6E969Sr6C6C2 
b2+g2B6e6Ar6A9qr3A6C3A6B6A6g6B9Cr9C 
6E9D6A6C9gr9C6B9EVB9Gr9C6E9B6A6C9gr 
3A6C3A4B6A6g6B9C. " 

1480 ca2$="r6C6E6C6E6t6F6C6Er6C6E6C : 
6E6g6D6g6Dr6C4E6C6E6W6C6£r6F6F6f6 
F696D6C6Er6E4E6B6E6Ar6F6C6qr6E6C6B6 
D656D6g6Br6C6E6B6E6Ar6F6C6gr6fiF6f6 
F6q6D6C6Er6C6E4C6E4f4F6C6Er6C6E6C6E 
6g4D6g6Br6C6E6C6E6f6F6C6Er6f6F6'F6F6 
g6D6C. " 
1410 cari=l:ca27.=2:vit7.=4:60SUB 163 : 



1420 TAG: IF <orce=2 THEN 2100 ; 
1430 FOR 1=1 TO -19 STEP -0.4:BRAPH : 
ICS PEN cil) 

1440 MOVE i*32,399-16*10:PRINT wl*( ; 
l);:HOVE i*32,399-16*9:PRINT u2$!t) 

1450 FOR x=3 TO 17 STEP 2:BRAPHICS : 



PEN c(x\2+l) 

1460 HOVE i*32+x*32,239:PRINT wltif ,>NF 

(x\2+l ) ) ; :MOVE i*32+x*32,255: PRINT 

«2$(f(x\2+D): 

1478 NEXT x:M0VE 1*32+608, 239: PRINT >Oû 

" "::HOVE i*32+60B,255:PRINT" "; 

1488 IF cal7.=0 AND ca2X=0 THEN BOSU >FA 

B 1638 

1490 NEXT iiTABOFF >NF 

1500 BOTO 1580 >HH 

1510 '***#********************* FER >XK 

DU ******************************** 

********** 

1528 cal»="flelglel-el-gl-eldlfld6e >HB 



1538 ca2*="r3g3A3B6C." 

1548 vitï=20:hh=2:hb=l 

1550 calï=iica2X=l 

1568 80SUB 1638 

1578 '********************+***** FI 

N ********************************* 

********** 

1588 PEN 1 1 : LOCATE 9.8:PRINT"0 n ::PE 

N 4:PRINT"/";:PEN 12:PRINT"N" 

1590 i*=UPPER*(INKEY*):IF i$="0" TH 

EN 780 

1608 IF i*="N" THEN I»; 8.13:INk 1, 

8:PAPER 8:PEN l:BORDER 13:H0DE 2:EN 

D 





1618 BOTO 1590 


>NA 




1620 '#*#************************ M 


>YB 


LB 


USIQUE **************************** 




NU 


********** 




YE 


1630 calï=l: 60SUB 1660 


>8H 




1640 ca27.=l:GOSUB 1848 


>DK 




1650 RETURN 


:>ff 


RB 


1660 


.■ÏF 




1670 pl$=FIMlcal*,cal%) 


;>rc 




1688 IF pl*OV THEN rl7.=0:6OTO 17 


>cw 




08 






1690 rl%»14:calX«calï+l:pl*=FN»$(ca 


>KL 




l*,cal%) 




PQ 


1788 IF Pl*=\" THEN cal7.=0:RETURN 
ELSE llï.=VAL(Pl») 


>UF 




1718 calï=calX+l 


>AB 




1728 nl*=FN«i*(cal»,cal'/.J 


>RH 




1730 calï=calï+l 


>AB 




1748 IF nl*=' ; +"^OR nl$="-" THEN 181 

8 

1750 nl*=" "+nl* 


>Zï 


DR 


;>U6 




1760 ndr/.= (l+INSTR!gai«e*,LOHER*(nl 


>KV 


UA 


$i)i/2 




HZ 


1770 IF ASC(RI6HT$(nl«,lli>96 THEN 
olï=hh ELSE ol7.=hh*2 


>XL 


UA 


1788 SOUND l+ri?.,ga««>?.(ndl'/.)/ol7.,'v 
itï*llï,6,3 


>PN 




1790 ON SQil! 60SUB 1660 


>RC 


NP 


1888 RETURN 


>FC 



'* ..*'•■■*■'• 



1810 r, t$=nit+FNmtica!*,calï) 


>VJ 


1B28 cal7.=cal7,+l 


'AD 


1830 SOTO 1740 


>ND 


1848 ' 


>ïF 


185D p2*=FNm*(ca2$.ca27.) 


«F 


1868 IF p2*OV THEN r27.=0:6OTO 18 


•LH 


60 




1878 r27.=8: câ2'/.=ca27.+l: p2*=F Nu* ica2 


;JD 


*,ca2X) 




1880 IF p2$="." THEN ca27.=0:RETURN 


>VL 


ELSE 127.=VAL<p2»i 




1890 ca27,=ca2ï+l 


>BC 


1900 n2*=FNm*tca2*.ca27.J 


>RZ 


1919 caZi=ca2ï+l 


>AF 


1929 IF n2*="+" OR n2*="-" THEN 199 


)ZK 


8 

1930 n2*=" "+n2* 


>UJ 


1948 nd27.= (l+INSTR!qaiMieJ,L0tlER$ln2 


>KX 


*)))/2 




1956 IF ASC(RI6HT$(n2*,lii;>96 IHEN 


>XB 


o27.=hb ELSE o27.=hb*2 




i960 SOUND 2tr2ï,ga»«eï(raj27.!/o27.,ï 


>PN 


l«*12î,0.4 




1978 ON 50(2! SOSUB 1848 


..RD 


1988 RETURN 


>6B 


i998 n2$=n2t+FN(n* (cà2*. ca27J 


m 


2900 ca27.=ca27.+i 


,>ZB 


2010 GOTO 1940 


.»HE 



2020 '********#*'************ ARRIVE >XG 
E DES BASONS force 2 ************** 
********** 

2030 IF rf(i)*l THEN rf(ll=0:t il 1=0 >BV 
2040 FOR j=-l-l(rf!i)l TO 18-lir+u >NJ 
)i-l STEP 0,5 

2059 IF rtil}=0 THEN SOUND 1.8,13.0 >HP 
,1,8,1 ELSE SOUND 5,1978,4,9.0,1.0 
2868 HOVE 32*j,239:PRINT " "+wl*lrf >AF 
(i));:HOVE 32*i,255:PRINT " n +n2*tr 
liliSi 

2979 IF rt(l)=8 THEN FOR k=l !0 58: ;F6 
NEXT ELSE FOR k=l TO 10-.NEXT 
2888 NEXT j:60TO 1380 >PR 

2090 '*************************** D >YD 
EPAR7 FORCE 2 ********************* 
********** 

2100 FOR i=17 TO 37 STEP 0.4:BRAPHI >LN 
CS PEN ctl! 

2110 MOVE i*32,239;PRINT «l$(0i::KO >EU 
VE i*32, 255: PRINT »2*C0)i 
2120 FOR 2=2 TO 16 STEP 2;6RAPHICS >N6 
PEN c\;<\2+!> 

2130 HÛVE i*32-s*32,239:PRINT »!$« :>Nt 
i;<\2+li;;:H0VE i*32-;i*32,255:PRINT 
w2*«.fis\2*li)! 

2148 NEXT k;IWE i*32-544,239:PRINT >QM 
I" ";:I«E 1*32-544. 255: PRINT" "i 



2159 IF cai7.=0 AND ca27.=0 THEN SOSU >FV 
B 1630 

2160 NEXT i:TA60FF >NA 
2170 BOTQ 1580 >NB 
2180 ********************** ANALVS >VD 
E REPONSE FORCE 2 ***************** 
********** 

2190 FOR 1=1 TO nti >LR 

2280 IF rf(iKHu) OR rcUiOcii) >HB 
THEN HOVE (19-lr(i)i*32,223:DRANR 1 
(rfu)i*32,32,6:l10VER 0.-32: DRAW - 
l(rf(i))*32,32,6:IWE il9-lr(ii>*32 
-4,223:BRAHR llHfii 1*32,32, o:MER 
0,-32:DRAHR -l(H(i))*32,32,6:f=f+ 
1 

2210 NEXT -*G 

2220 60T0 1370 .'HE 

2238 ************************ CORR >XK 
ECTIQN **************************** 
********** 

2240 IF *orce=l THEN LOCATE 2+1-1 (r >JU 
+11-1)1,11 ELSE LOCATE 20-1,11 

2259 PRINT STRING*illr»<i~l!>.32( >BL 

2260 IF torce=l THEN LOCATE 2+1-1 !r >JU 
Til-ll),10 ELSE LOCATE 29-1.18 

2276 PRINT STRING*ilii-t(i-ii!,32> .« 
2280 1=1-1 (rt li-1! ; : i=i~i >TG 
2298 GOTO 1810 .«• 



MAGNETIC 



• Pierre SCHAAF 



De evolutionus sphérum ou les 
aventures d'une bille aimantée se 
promenant sur un tableau quadriï 
Or, çà et là ont été disposés, par un 
ordinateur malicieux des aimants de 
même signe que ladite sphère. Les lois - 
de la physique étant ce quelles sont, la 
trajectoire de la boule métallique est 
déviée. A vous d'en déduire la position 
des aimants. Simple, non ? Le mode 
d'emploi est inclus dans le listing. 




r26l 



I 



19 REM **♦ MA6NETIC *** >PE 
15 REM *** SCHAAFF PIERRE •** >VG 

20 REM «*» présentation *** >VN 
3» MODE 8: BORDER 0:INK 8,8:11*: 1,16 >Z9 
:INK 2, 14: M 3,17:INK 4,9:1»: 5,24 
:INK 6,2:INK 7,21: INK 6, 15: INK 9,11 
:INK 18,22: INK 11,25 



48 DATA M,A,6,N,E,T,I,C 


>RT 


M FOR i=l TO 8 


>NK 


68 READ a*(i) 


>DB 


70 NEXT 


>ÏH 


B0 LOCATE 4,3 


>HK 


98 FOR i=l TO 8 


?PD 


188 PEN i:PRINT a$(i);" "; 


>TE 


118 NEXT 


>DH 


128 PEN 9:L0CATE 5.4:PRINT" 


>PZ 


138 PEN 18:L0CATE 8,5:PRINT" 


>GB 


140 PEN lkLOCATE il,6;PRINT"_" 


>Z6 


158 INK 12,8; INK 13,8: INK 14,8:PRIN >VP 


T CHR*(22)+CHR*(i) 




160 FOR i=3 TO 12 


>CD 


178 a=INTU.6'-i) 


>LW 


188 PLOT l,206-a:DRAW 63B,208-a,12 


>AZ 


198 NEXT 


>EF 


288 FOR i=30 TO 278 STEP 68 


>TP 


210 PLOT 319+1,195: DRAW 319+2*1, 1 


>ZR 


228 PLOT 319-i,195:DRAW 319-2*1,1 


>ZX 


230 NEXT 


)EA 


248 QRIB1N 298,135 


>MO 


250 FOR i=PI/2 TO STEP -0.03 


>w 


260 a=70»COS(i):b=20»SIN(i) 


m 


270 PLOT a,b,13:DRAW -a,b:PLOT -a, 


- >NY 


b:DRAW a,-b 




288 NEXT 


>EF 


298 ORIGIN 358,180 


>MT 


300 60SUB 600 


>GJ 


318 FOR i=PI/2 TO STEP -8.83 


>WD 


328 a=78*COSii);b=70*SIN(i> 


>VD 


338 PLOT a,b,14:DRAW -a,b:PLOT -a. 


- >NW 


b:DRAW a,-b 




348 NEXT 


>EC 


350 FOR k»l TO 7 


>WD 


368 SOUND 1,430, 10, 15,,, 1 


,>RA 


378 INK 12,26: INK 13, 13: INK 14,6:PR >YD 


INT CHR*(22)+CHR»(8) 




388 FOR j=0 TO 50: NEXT 


>qB 


390 INK 12,0: INK 13,0: INK 14,8:PRIN >VW 


T.CHR$(22)+CHR»(1) 




408 NEXT 


>DK 


410 r=60:SOSUB 570:GOSUB 600:r=50:G >LA 


OSUB 578 




420 ORIGIN 0,0 


>QG 


430 PLOT 258,220, 14: DRAW 278,228 


>YH 


448 PLOT 235,228:PL0T 228,228 


>m 


458 PLOT 238, 180: DRAW 250,180 


>wd 


460 PLOT 210, 180: DRAW 220,180 


>HZ 



. ' h 


|i i i, i i i i l l) 

ïïffâm 














478 PLOT 288,188 


>CA 


480 PLOT 280, 150: DRAW 295,158 


>WQ 


498 PLOT 258, 150: DRAW 265,150 


>WK 


500 PLOT 235, 150 


>BK 


510 PLOT 250,130;DRAW 255,130 


>WX 


528 PLOT 265, 138: DRAW 278,130 


>WB 


538 PLOT 280, 130: DRAW 290,138 


JWB 


540 PLOT 188,178:DRAW 208,178 


>WA 


550 INK 12,26:INK 13,13: INK 14,6:PR >YD 


INT CHR$(22)+CHR$'(8) 




568 CALL MB66:6QT0 700 


>QH 


570 FOR i=PI/4 TO STEP -0.83 


>WP 


58» PLOT r*COS(i),r*SINU!,12 


)YE 


590 N£XT:RETURN 


>MJ 


608 FOR i=l TO 15 


>CD 


610 SOUND 2,440,25, i,,l 


>OH 


620 SOUND 2, 415, 28, i 


;>nc 


638 NEXT:R£TURN 


>m 


708 REM m* initialisations *»* 


>ZR 


710 MODE 1: BORDER 9: INK '8, 9: INK 1,0 


>UH 


:INK 2,26: INK 3,6 




728 SYMBOL AFTER 232 


:>pz 


738 SYMBOL 232,102,102,195,195,195, 


>LZ 


231,126,32 




808 REM **» règles ♦** 


>NA 


818 PEN 1: LOCATE 4,12:PRINT"voulez- 


>NH 


yous les régies (O/N)?" 




828 a*=lPPER*UNKEY*):IF a$=" THEN 


>FY 


828 




838 IF at="0" THEN 80SUB 3500: GOTO 


>DP 


858 




840 IF a»<>"M" THEN 828 


>PK 


858 CLEAR:x=5:y=18:xa=x:ya=y 


>ZF 


868 DIM ai»ant'(33,22), essai (33,22) 


>BD 


878 ORISIN 1,1: GRAPHICS PEN 1 


>XS 


888 RESTORE 1610 


>LF 


900 REM **♦ jeu avec ou sans trace 


>CM 


*** 




918 SYMBOL AFTER 147 


>PF 


928 FOR i=147 TO 156 


>MT 


930 SYMBOL i,8 


>WB 


948 NEXT i 




>PB 



958 CLS:PEN l:LOCATE 4,10:PRINT"Vou >YU 
lez-vous le trace du deplace«ent";L 
OCATE ll,14:PRINT"de la bille (O/N) 
?" 

968 a*=UPPER$(INKEY*):IF a*="" THEN >FJ 
960 

978 IF a*="0" THEN 990 >NU 

980 IF at<;>"N" THEN 960 ELSE 1058 >XA 
998 SYMBOL 147,24,24,24,31,15 >WP 
1800 SYMBOL 149,24,24,24,24,24.24,2 >EB 
4,24 

1018 SYMBOL. 150,8,8,8,15,31,24,24,2 >BY 
4 

1820 SYMBOL 153,24,24,24,248,248 >YU 
1030 SYMBOL 154,0,0,0,255,255 >WQ 
1848 SYMBOL 156,8,0,0,248,248,24,24 >DM 



,24 

1050 SYMBOL 232, 102, 102, 195, 195, 195 >ML 
,231,126,32 

,1060 CLS:LOCATE 12,12:PEN 2:PRINT"V >BA 
EUILLEZ PATIENTEZ":FOR i=0 TO 500:N 
EXT 

1100 REM *** calcul position des ai >LB 
mants *** 

1110 RANDOMIZE TIME >PD 

1120 nbrai»ant=INT(RND(l)*10+l):IF >BZ 
nbraimant<5 THEN 1120 

1130 FOR i=l TO nbraifliant >UB 

1148 posk=INT(RNDU!*29+1):IF posx< >RH 
6 OR po5s/2=INT(posx/2) THEN 1148 

1158 posy=lNT(RND(l)*18+l):IF POsy< >TP 
3 OR posy/2<>INT(posy/2) THEN 1150 

1168 IF ai«iantfpo5ï,posyi=t THEN 11 >LR 
40 ELSE aimant(posx,posy)=l 

1178 NEXT i >VE 

1288 REM ♦*♦ dessin écran *** >V6 

1218 CLS:INK 1,9; INK 2,9: INK 3,9:PR >Y0 
INT CHR$(22)+CHfit(l) 

1228 FOR i=390 TO 78 STEP -32 >UV 

1238 PLOT 54, i: DRAW 500, i >TK 

1248 NEXT i >VC 

1258 FOR i=54 TO 528 STEP 32 >UA 

1268 PLOT i,70:DRÂW i,390 >TU 

1278 NEXT i >MF 

1280 FOR 1=94 TO 446 STEP 32 >UG 

1298 PLOT i, 358,0: DRAW i+16,358 >YL 

1380 PLOT i,182:DRAW i+16,182 >WC 

1318 NEXT i >VA 

1320 FOR i=334 TO 110 STEP -32 )VM 

1338 PLOT 86, i: DRAW 86,1+16 >VY 

1348 PLOT 470, ilDRAki 478, i+16 >WZ 

1358 NEXT i >vE 

1360 FOR i=2 TO 16 STEP 2 >QW 

1370 LOCATE 2,i+2:PRINT i/2 >VW 

1380 NEXT i >VH 

1390 FOR i=7 TO 29 STEP 2 >RA 

1488 LOCATE i,22:PRINT CHR»(61+i/2) >CH 

1410 NEXT i >VB 

1420 PLOT 22,38, i:DRAW 624,3B:DRAW >EF 
624,6:DRAW 22,6:DRAW 22,38 

1430 PLOT 21,40:DRAW 626,48:DRAW 62 >CB 
6, 5: DRAW 21, 5: DRAW 21,48 

1440 PEN 2:LOCATE 34,16:PRINTai«ian >EL 
t":LOCATE 35, 17: PRINT"»al": LOCATE 3 
4,18:PRINT"plact:" 

1450 PLOT 518, 166,1: DRAW 630, 166: DR >PL 
m 630, 70: DRAW 518, 78: DRAW 518,166 

1468 PLOT 516, 169: DRAW 632, 169: DRAW >MN 
632,69:DRAW 516,69:DRAW 516,169 

1478 ORIGIN 560,220 >MM 

1480 r=33:BOSUB 1520:r=27:6OSU8 157 >WC 
0:r=23:SOSUB 1578 

1498 ORISIN 600,350 >MN 







|TT i i i ! i ! H 










k'-'-'j-'-aS- 1 








>wt 








1500 r=33:G0SUB 1520:r=27:SOSUB 157 


1969 ya=y+2:60T0 1878 




>PB ' 


6:r=23:S0SUB 1579 




2968 REM ♦»* déplacement de la boul 


>FB 


1518 1NK i,0:itt. 2,26: II* 3.6:PRINT >FH 


e #** 




CHR*(22S+CHR»(6):60TD 1616 




2919 IF (K=5 AND y=2) OR (x=31 AND 


>DR 


1526 FOR i=9 TD PI/2 STEP 6.05 


M 


y=2) OR (x=5 AND y=28) OR (x=31 AND 




153» a=r*COS(i):b=r*SIN(ii 


)VJ 


y=26) THEN 1699 




1540 PLOT a,b,3:PLQT -a,-b:PLOT -a, 


)NS 


2029 IF x=5 THEN sens=l 


>RB 


bîPLOT a,-b 




2839 IF x=31 THEN sens=2 


>Ri 


1559 NEXT i 


>V6 


2946 IF y=2 THEN sens=3 


>RD 


1560 RETURN 


>FF 


2959 IF y=20 THEN sens=4 


>R6 


1578 FOR i=0 TO PI/4 STEP 6.95 


M 


2868 LOCATE ;<,y:PRINT" " 


>TH 


1589 PLOT r*CQS(i),r*SIN(i),2 


>YC 


2876 ON sens 60T0 2116.2149,2176,22 >CZ 


1598 NEXT i 


M 


99 




1699 RETURN 


>FA 


2989 IF essai(x,y)=l THEN essaHx.y 


>NY 


1619 DATA G,N,E,T 


)LJ 


)=0:coup=coup-l 




1629 LOCATE 34,4:PRINT"M":60SUB 486 


>RA 


'2999 LOCATE x,y:PEN 2;PRINT CHRt(23 


>EM 


8:L0CATE 34,6:PRINT"A":G0SUB 4999 




1) 




1639 FOR j=34 TO 49 STEP 2 


>RR 


2199 xa=x:ya=y:G0T0 1699 


>UP 


1649 READ a*:LOCATE j,8:PRINT a*:GO 


>KE 


2119 GOSUB 2300:x=x+2 


>PM 


SUB 4989 




2128 IF INKEY(69)=0 THEN x=5:y=2 


>ZN 


1659 NEXT j 


>VJ 


2138 IF x=31 OR x=5 OR y=2 OR y=20 


>RH 


1669 LOCATE 46,10:PR1NT'T I :SOSUB 49 


>VP 


THEN 2889 ELSE 2978 




89:L0CATE 46,12:PRINT"C":S0SUB 4969 




2149 BOSUB 2300iX=x-2 


>PT 






2156 IF INKEY(69)=0 THEN x=5:y=2 


>ZR 


1679 PEN 2:L0CATE x,y:PRINT CHR*(23 


>E« 


2169 IF x=5 OR x=31 OR y=2 OR y=20 


>TE 


1) 




THEN 2886 ELSE 2876 




1689 REM *** entrée clavier *** 


>XJ 


2176 BOSUB 2366:y=y+2 


>PW 


1699 àt=UPPER*(INKEY*);IF a*="" THE M 


2188 IF INKEY(69)=8 THEN x=5:y=2 


>zv 


N 1699 




2199 IF x=5 OR x=31 OR y=29 OR y=2 


>TF 


1788 IF a*=CHR*<242) OR a$=CHR*(243 


>KN 


THEN 2889 ELSE 2676 




) THEN 1899 




2289 60SUB 2380:y=y-2 


>PR 


1718 IF a$=CHR*(240) OR a*=CHR*!241 


>KK 


2218 IF INKEY (691=0 THEN x=5;y=2 


>ZN 


1 THEN 1999 




2226 IF x=5 OR x=31 OR y=2 OR y=28 


>TB 


1729 If a*=CHR«<224) THEN 2999 


>VH 


THEN 2886 ELSE 2678 




1739 IF a*="P" THEN 2898 


>qp 


2366 REM ♦** test de position des a 


>LC 


1748 IF a*="S" THEN 3699 


>QL 


imants *** 




1758 IF a$="A" THEN 3199 


>PC 


2319 aimant=l 


>8B 


1769 GOTO 1699 


>NH 


2326' IF aimant (x+2,y)=l THEN aimant 


>NH 


1888 REM «m déplacement droite-oau 


>KB 


=aimant+l 




che »** 




2330 IF aimant lx-2, y) =1 THEN aimant 


>NM 


1819 IF y=2 OR y=26 THEN 1829 ELSE 


>CD 


=aimant+2 




1699 




2349 IF aimant(x,y+2)=l THEN aimant 


>NN 


1828 IF a»=CHR*(243) THEN 1856 


>hp 


=aimant+4 




1838 IF x=5 THEN 1698 


>N0 


2359 IF aimant (x,y-2)=l THEN aimant >N« 


1849 xa=x-2:6QT0 1876 


>PV 


=aimant+8 




1858 IF x=31 THEN 1698 


>PV 


2366 ON aimant BOSUB 2389,2418,2476 


>BB 


1868 xa=x+2 


>XD 


, 2386, 2530,2596, 2660, 2538, 2610, 2678 




1879 LOCATE x,y:PRINT" ":LOCATE sa. 


>FK 


,2689,2616,2386,2416,2478 




ya:PEN 2:PRINTCHR*(231) 




2378 RETURN 


>FF 


1889 x=xa:y=ya;GOTO 1698 


>UE 


2386 IF sens=l OR sens=2 THEN trace 


>QV 


1989 REM *»* déplacèrent haut-bas < 


>DX 


»=CHR*(154) ELSE trace*=CHR*(149i 





1919 IF x=5 OR x=31 THEN 1926 ELSE 
1690 

1920 IF a»=CHR*(241) THEN 1950 
1930 IF y=2 THEN 1698 

1940 ya=y-2:60TO 1878 
1958 ÎF v=26 THEN 1698 



2398 IF x=5 OR x=31 OR y=2 OR y=29 >DT 

THEN RETURN ELSE BOSUB 2698 

2400 RETURN >EK 

2410 ON sens GOTO 2429,1699,2459,24 >CW 

69 

2429 IF x=5 THEN x=3:y=2:RETURN >ZG 

2430 IF (aimant=14 AND sens=l) THEN >BR 



sens=2:x=x-4i RETURN 

2440 BOTO 2530 >MH 

2459 sens=2:trace*=CHR»(153):60SUB >BP 
2699:y=y-2;x=x-2:RETURN 
2466 sens=2:trace*=CHR*(156):60SUB >GR 
2696: y=y+2: x=:<-2: RETURN 
2476 ON sens GOTO 1698,2480,2516,25 >CC 
26 

2486 IF x=31 THEN x=33:y=28: RETURN >CB 
2496 IF (ai»ant=15 AND sens=2> THEN >BX 

sens=l:x=x+4:RETURN 
2588 GOTO 2618 >MD 

2516 sens=l:trace*=CHR*il47):6QSUB >6L 
2690: y=y-2:x=x+2: RETURN 
2520 sens=l:trace»=CHR*( 156): GOSUB >SD 
2696: y=y+2:x=x+2: RETURN 
2538 ON sens BOTO 2540,2556,2566 >YA 
2548 sens=4:trace$=CHR*( 153): GOSUB >SR 
2698: x=x-2: y=y-2: RETURN 
2550 sens=4:trace»=CHR*fl47):B0SUB >GU 
2690:x=x+2:y=y-2:RETURN 
2566 IF y=2THEN x=31:y=6;RETURN >AM 
2570 IF (aimant=8 AND sens=3) THEN >AH 
sens=4;v=y-4:RETURN 

2580 GOTO 2470 >NF 

2590 IF sens=l THEN 2530 ELSE 2410 >ZY 
2600 IF sens=2 THEN 2530 ELSE 2470 >ZX 
2618 ON sens BOTO 2626,2630,1690,26 >CA 
49 

2620 sens=3:trace*=CHR$U56):S0SUB >SQ X 
2690: x=x-2:y=y+2: RETURN 

2639 sens=3:tracet=CHR»( 150): GOSUB >6H 
2699: x-x+2:y=y+2: RETURN 

2640 IF y=28 THEN x=5:y=22:RETURN >BU 
2650 IF (aimant=12 AND sens=4i THEN >BY .' 

sens=3:y=y+4:RETURN 

2660 BOTO 2410 >MJ 

2679 IF sens=l THEN 2616 ELSE 2419 >Z« 

2689 IF sens=2 THEN 2610 ELSE 2470 >ZE 

2690 IF essai(x,y)=l THEN essai(x,y >«F 
)=9:coup !: coup-l 

2700 PEN 3:L0CATE x,y:PRINT trace* >CZ 

2710 RETURN >FD 

2888 REM.»»* placer un aimant *** >YV 

2816 IF coupOnbraimant THEN 2848 >BF 

2828 PEN 2:LOCATE 5,24:PRINT , Suppri >F'F 

mer d'abord un aimant" 

2830 BOSUB 4660:FOR i=l TO 2066:NEX >CU 

T i: GOSUB 3356: GOTO 1696 

2840 GOSUB 2896 >YF 

2858 LOCATE joux, jouy:PEN 2:PRINT C >MA 

HR*(232) 

2866 IF aimant (. joux, jouy)=l THEN se >TE 

ore=5core+l 

2870 essai (joux, jouy)=l:coup=couptl >GF 

2880' IF coup=nbraimant THEN 3206 EL >JX 
,SE 1690 



,28 . 



|'d±y±!ii:i 
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2890 PEN 2:L0CATE 5,24:PRlNT"Coordo >FX 
nnees (lettre,chiMre)"|:SOSUB 4060 

2900 INPUT joux*,jouy >RF 

291® joux=ASCijoux*):IF joux>90 THE >WK 

N joux=joux-32 

2920 IF (jouy<l OR jouy>8 OR joux<6 >XU 

5 OR joux>76) THEN GOSUB 3350: BOTO 

2890 

2930 joux=(joux-59)+ljoux-64):jouy= >RB 

(jouy+l)*2 

2946 8D5UB 3350 >XJ 

2950 RETURN >FK 

3000 REM *** suppression d'un aiman >U2 

t *+* 

3010 GOSUB 2890 >XF 

382* IF essai (joux, jouylOl THEN 30 >E¥ 

10 

3030 LOCATE joux,jouy:PRINT" " >AR 

3040 IF aimant!joux,jouy)=l THEN se >RF 

ore=score-i 

3050 essai (joux, jouy)=0:coup=coup-l >6X 

3060 BOTO 1690 >NC 

3100 REM *** abandon *** >QE 

3110 PEN 2;L0CATE 5,24:PRINT"Positi >VW 

on des";nbraimant; "aimants" 

3120 BOSUB 4060:FOR i=l TO 2000;NEX 

T i 

3130 FOR i=7 TO 29 STEP 2 

3140 FOR j=4 TO 18 STEP 2 

3150 IF aimant(i,ji=l THEN LQCATE i >DT 

,j:PEN 1:PRINT CHR$!232) 

3160 NEXT j,i >KJ 

3170 LOCATE 5,24:PEN 2:PRINT score; >PA 

"aimantlsi bien place(s)" 

3180 BOSUB 4060: FOR i=l TO 4000: NEX >DH 

T i 

3190 6QT0 3300 >M6 

3200 REM *** tous les aimants sont >LU 

places *** 

3210 PEN 2:LQCATE 5,24:PRINT nbraim >AT 

ant;"ai«ants a placer au total" 

3220 LOCATE 35,20:PRINT" " >VL 

3230 GOSUB 4060:FOR i=l TO 2000:NEX >DP 

T i 

3240 IF coup=score THEN 3280 >NJ 

3250 PEN 3:L0CATE 35,2«:PRINT coup- >JE 

score 

3260 BOSUB 4060: FOR i=l TO 2000: NEX >BT 

T i 

3270 BOSUB 3350: BOTO 1690 >TN 

3280 SOSUB 3350: LOCATE 5,24:PRINT"T >FJ 

ous les aimants sont bien places" 

3299 SOSUB 4060:FOR i=l TO 2000:NEX >DW 
T i 

3300 BOSUB 3350:BOSUB 4060:LOCATE 5 >BF 
,24:PRINT"Voulez-vous rejouer (O/'N) 



>DM 



>QC 

>qz 



3310 a$=UPPER*lINKEY»:IF a*="" THE >BW 

N 3310 

3320 IF a*="0« THEN 850 >PU 

3330 IF a*<>"N" THEN 3310 >QY 

3340 CLS:BORDER lilNK 0,1:1*: 1,24: >LB 

PEN 1:END 

3350 LOCATE 5,24:PRINT SPACE*(34! >BC 

3360 RETURN >FF 

3500 REM »** règles »** >PP 

3510 CLS:LOCATE 14,2:PEN 2:PRINT"R >NJ 

E B L E S" 

3520 LOCATE 13,3:PbN 3:PRINT" >RT 

>F6 



3530 PEN 1:L0CATE 2,6:PRINT" Vous d 

ispasez d'une bille aimantée pourvo 

us déplacer sur une grille de jeu." 

3540 PRÎNT"Vous ne pouvez déplacer 

la bille que surle pourtour de cett 

e grille." 

3550 PRINT:PRINT" Par contre, la bi 

lie peut être lanceesur la grille 

, elle se déplace en lignedroite p 

aur atteindre le cote oppose." 

3560 PRINT:PRINT" Bien entendu, l'or 

dinateur a dispose, auhasard, des a 

imants de même nature surla grill 

e, " 

3570 PRINT:PRINT" Si un aimant se t 

rouve sur le chemin devotre bille, 

celle-ci est repoussee etvoit sa 

direction modifiée. " 

3580 SOSUB 3910 

3590 PRINT:PRINT"Exemnle :" 

3600 LOCATE 23, 2: PEN 3:PRINT CHRtfl 

96)+" "+CHR$(149) 

3610 LOCATE 23,4:PRINT CHR$(149)+" 

"+CHR*(147)+" "+CHR*(154)+" "+CHR$t 

197) 

3620 LOCATE 21,6:PRINT CHR*(154)+" 

"+CHR*U53)+" "(SPEN 2:PRINT CHR$(2 

32);:PEN 3:PRINT" "+CHR»(150!t" "+C 

HR$(154) 

3630 LOCATE 21,S:PRINT CHR$(199)+" 

"+CHR«U54)+" "+CHR*(156)+" "+CHR*( 

149)+" " 

3640 LOCATE 25,10:PRINT CHR$(149)+" 

"+CHR*(198) 
3650 FOR i=262 TO 358 STEP 32 
3660 PLOT 343,i,l:DRAK 439, i 
3670 NEXT i 

3680 FOR i=343 TO 439 STEP 32 
3690 PLOT i,262;DRAH i,358 
3700 NEXT.i 

3710 LOCATE 2,5:PEN 2:PRINT CHRK23 
2)+" : aimant" 

3720 LOCATE 2,7:PEN 3:PRINT CHR*(15 
4)+" : trajet bille" 



>EU 



3730 LOCATE 1,13:PEN l:PRINT"Les ai >VA 
sants ne sont pas visibles, a vousd 
e déterminer leurs positions en dep 
lac-ant la bille sur toute la grill 
e. " 

3740 PRINT:PRINT"Le nombre d'aima >PF 
nts a trouver varieentre 5 et 10 

3750 PRINTTorsqu'ils sont tous pla >LY 

ces,l'ardinateura-ffiche le nombre d / 

'aimants mais places." 

3760 PRINT'A vous de les replacer a >KB 

u bon endroit..." 

3770 BOSUB 3910 >¥C 

3780 LOCATE l,7:PRINT"Le jeu possed >HZ 

e un mode normal (difficile)et un mo 

de trace(-facile)," 

3790 PRINTiPRINT'En mode trace, un >£D 

trait s'aHiche sur lepassage de la 

bille, alors qu'en modenormal, 
il ne s'affiche rien." 
3800 PRINT:PRINT"Si la bille dispar >BE 
ait après un lancementet ne reapara 
it plus, elle est entreedans une 

boucle et ne peut plus s'enech 
apper. " 

3810 PRINT:PRINT"Pour la libérer ap >NH 
puyez sur la touche Q. " ' 

3820 BOSUB 3910 >XJ 

3830 LOCATE 11, 2: PEN 2:PR1NT"R0LE D >RZ 
ES TOUCHES" 
3840 LOCATE 10,3:PEN 3:PRINT" >ZA 



>YB 


" 


,>AN 


3850 LOCATE 10,6:PEN l:PRINT"(P)lac >YX 


>W 


er un aimant" 




3860 LOCATE 10,8:PRINT"(S)uppriier >X8 


>HZ 


un aimant" 




3870 LOCATE 10,l«:PRINT"(A)bandonne >UK 




r le jeu" 


>J6 


3880 LOCATE 10,12:PRINT M»(240i;C >VN 




HR$(241) ;CHR$(242)iCHR$(243) ; " Depl 




acer la bille" 




3890 LOCATE 10,14:PRINT"(COPY) Lanc >X« 


>BA 


er la bille" 




3900 LOCATE 10,16:PRINT"(Q)uitter u >WU 




ne boucle" 


>PP 


,3910 LOCATE 10,25:PEN 2:PRINT"Appuy >HH 




ez sur une touche" 


>VE/ 


3920 CALL &BB06 >UH 


>VD 


3930 CLS:PEN 1:RETURN >RV 


>m 


4000 REM *** sonorités *♦* >TV 


>VH 


4810 FOR i=5 TO 15 >LJ 


>UB 


4020 SOUND 2,440,l,i )NV 


>VF 


4030 SOUNB 2,445,1,1 >NB 


>UE 


4040 NEXT i >VD 




4050 RETURN >FC 


)DU 


4060 SOUND 5,200,50,9 >NH 


i 


4070 RETURN >FE» 




u 



POUSSE-POUSSE 
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Le principe de 
POUSSE-POUSSE 
est simple : vous 
devez reconstituer 
une suite de mots 
ou une image qui 
sont contenues dans 
un tableau à 
l'écran. Le tableau 
étant constitué de 
caractères mis dans 
le désordre. 
Vous remarquerez 
que, quelque soit le 
tableau à 

reconstituer, le carré 
en bas à droite sera 
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toujours vide : c'est 
cela qui permettra 



I 



le déplacement des 
parties du tableau. 



UN 

NUMERO 

HORS 

SERIE 

GRATUIT 

TOUS 

LES 

| DEUX 

MOIS 
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CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles I A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatlbles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC. 

Attention, tous nos abonnés reçoivent avant parution des souscripthns sur les nouveaux 
livres I 

ATTENTION I II n'y a pas d'abonnement rétroactif. 

□ CPC AMSTRAD 1 1 numéros 220 F 
Q 6 numéros 120 F 

□ AMSTAR 11 numéros 140 F 

□ PCompatibles Magazine 1 1 numéros 200 F 

□ Arcades 1 1 numéros 200 F 
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POUSSE-POUSSE possède trois 
niveaux : dans le premier le tableau 
mesure 4*4 caractères, dans le 
deuxième 5*5 et dans le troisième 6*6. 
Chaque niveau comporte quatre 
tableaux dont 2 avec une suite de mots 
et 2 avec une image. Cela fait en tout 
six images : 

• niveau 1 : un homme à lunettes un 
peu chauve et un homme sans lu- 
nettes. 

• niveau 2 : un éléphant d'Asie et un 
avion au-dessus des montagnes. 

• niveau 3 : un hippocampe et un 
panda géant. 

Toutes les informations, sur le compte 
des points et sur les deux commandes 
possibles pendant le jeu (Loupe et 
Vérification), vous seront données 
dans les instructions du programme. 

DETAILS TECHNIQUES 

Ce programme comporte deux 
routines en langage machine : 

— La première sert à lire un caractère 
à la position actuelle du curseur texte, 
et peut être réutilisée dans un de vos 
programmes en changeant simplement 
(si besoin est) l'adresse dans : LD 
( # 8007),A (C'est l'adresse où va être 
sauvé le code ASCII du caractère lu). 
La routine se lance par un CALL 
&8000. 

Ex. : Pour lire le caractère en bas à 
droite, faire LOCALE 40,25:CALL 
&8000:PRINT PEEK(&8007) 

— La deuxième routine, quant à elle, 
est plus complexe, et fonctionne 
uniquement en MODE 1 : elle sert à 
agrandir les images et se lance par un 
CALL &8020. 

• Pour la reloger, il ne faudra pas 
oublier de changer les adresses 
définies, au début du listing 1 
assembleur, par l'instruction EQU. 

• Pour l'utiliser, il faudra poker les 
valeurs suivantes : 

En &8010 : le poids faible de la 

coordonnée X de Limage agrandie. 

En &8011 : son poids fort. 

En &8012 : la même valeur qu'en 

&8010. 

En &8013 

&8011. 

En &8014 : le poids faible de la 

coordonnée Y de l'image agrandie. 

En &8015 : son poids fort. 

En &8016 : la longueur en nombre de 

points (1 caractère = 8 points) 

En &80I7 : la largeur en nombre de 

points. 



En &802A : le poids faible de la 
coordonnée X de l'image à agrandir 
En &802B : son poids fort 
(initialement X = 0). 
En &802D : le poids faible de la 
coordonnée Y de l'image à agrandir 
En &802E : son poids fort 
(initialement Y = 399). 
En &8039 : l'INK du papier à 
l'endroit où est imprimée l'image 
agrandie : (mettre 4 ou plus si le 
papier n'est pas uni ou s'il est généré 
aléatoirement sinon il apparaîtra à la 
place d'une des couleurs de l'image 
agrandie). L'INK est initialement à 0.. 

En &8095 : la même valeur qu'en 

&802A 

En &8096 : la même valeur qu'en 

&802B 

EXEMPLE 

Imaginons que vous vouliez agrandir 
le mot POUSSE-POUSSE situé en 



haut à gauche de l'écran X = 0, 

Y = 399 ( = &18F) pour l'afficher aux 

coordonnées X = 96( = &60), Y = 367 

( = &16f). Le fond étant en INK 0. Il 

faudra faire : 

POKE &8010,&60:POKE &8011.0 

Pour la coordonnée X 

POKE &8012,&60:POKE &8013.0 

Pour la coordonnée X 

POKE &8014,&6F:POKE &8015.1 

Pour la coordonnée Y 

POKE &8016,120 

Longueur = 15 caractères * 8 

points/car. = 120 

POKE &8017,8 

Largeur = 1 caractère * 8 = 8 

CALL &8020 

Lance la routine 

Les autres valeurs (position du mot 
POUSSE-POUSSE, INK du fond) 
étant les mêmes que celles initialement 
prévues, il n'est pas nécessaire de les 
poker. 



la même valeur qu'en 
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? '*********#*#*#***#**»*♦** 

8 ' 

50 SYMBOL AFTER 126 

m MEMORY i7FFF:G0SUB 980:GQSUB 157 

0:LOCATE 12,12:PRINT"INSTRUCTI0N (0 

/N)":CALL 4B803 

78 Rt=UPPER$(INKEY*>:IF R*="" OR R* 

©"0" AND R*0"N" THEN 70 ELSE IF R 

$="0" THEN G0SUB 182» 

BU MODE ltPRINT CHR*(10)+"-Veuillej 

entrer votre non»(î2 caracteresau ta 
Miail) : ":PRINT:CALL MB03:PRINT"~ 
— >";:NQM*="":N*="" 
90 N$=INKEY$:IF N*=" THEN 90 
100 IF ASC!NJ)=127 AND N0M*O"" THE 
N PRINT CHRM8I+" "+CHR*(B);:N0M*=L 
EFTtiN0M»,LEN(N0M$!-l):G0T0 90 
110 IF ASC(N*)=127 AND N0MJ="" THEN 

PRINT CHR*(7I;:60T0 90 
120 IF ASC(N$K>13 THEN N0M*4O1*+N 
«:GOT0 130:PRINT N*i ELSE 140 / 



>EF 



130 IF LEN(N0M*)>12 THEN PRINT CHR* 

(7) i :NQM«=LEFT*(N0M$,LEN(N0M»>-1) :G 

0T0 90 ELSE PRINT N*;:G0T0 90 

140 CLS:N0M*=UPPER*(NQM»):NûMl*= i, Bi 

erwenue "+NDM»:X*INT((40-LEN(NDM!*) 

i/2!:L0CATE X,12:PRINT N0M1*;F0R A= 

1 TO 3000: NEXT A 

145 IF 6RIUE>=3 THEN CHAINE*'" ":F0 

R A=l T0 FIN'"2-1:P£AD CH:CHAINE*=CH 

AINE*+CHR*(CHI:NEXT ArGOSUB 1190:60 

SUB 710:GOTO 160 

150 CHAINE$="":F0R A=l TO FIN:READ 

LI*(A):CHAINE*=CHAINE*+LI*(A):NEXT 

fl:60SUB 1190:GOSUB 710 

140 FOR A=l TO LEN(CHAINE$):Ct=MID$ 

(CHAINERA, 1) 

170 X=INT(RND*FIN)+1:Y=INT(RND»FIN) 

tliIF X=FIN AND Y=FIN THEN 170 ELSE 

L0CATE X, Y: CALL »00 
180 IF PEEK(&8907>»32 THEN PRINT C* 
;:NEXT A ELSE 170 

190 X=FIN:Y=FIN:INK 1,24:11* 2,26:1 
NK 3,0:CLS #1 
200 PRINT CHR*(7);:EVERY 50,3 BOSUB 

740 
210 R»=INKEY*:IF Rt="" THEN 210 



>RU 
>ZY 

>TM 
>QC 
>FN 

>xz 



// 



— 



22» IF R*=CHR*!241) THEN Y=Y-1:B0SU 

B 550 ELSE 258 

239 IF DEPLACE=1 THEN SOSUB 378 ELS 

E Y=Y+1 

248 GOTO 218 

258 IF R*=CHR*(248) THEN Y=Y+l:GOSU 

B 558 ELSE 288 

268 IF DEPLACEE THEN GOSUB 418 ELS 

E Y=Y-1 

278 SOTO 218 

288 IF R$=CHR»(242) THEN X=X+1:BÛSU 

B 558 ELSE 318 

298 IF DEPLACE»} THEN 60SUB 458 ELS 

E M-l 

388 80T0 218 

318 IF Rt=CHR$<243) THEN X=X-l:GOSU 

B 558 ELSE 348 

328 IF DEPLACEE THEN 60SLIB 498 ELS 

E X=X+1 



338 GOTO 218 


>YF 


348 IF UPPER*<R*)="V" THEN GOSUB 58 


)CH 


8 

358 IF UPPER*(R*!="L" THEN GOSUB 15 


:>DM 


80 

368 SOTO 218 


ïYJ 


378 '*** BAS *** 


>TA 


380 GOSUB 538 


ïHJ 


398 LOCATE X,Y:PRINT " "::LOCATE X, 


>CT 


Y+1:PRINT CHR$(CHARi| 




488 RETURN 


>YK 


410 '*** HAUT *»» 


>RF 


428 GOSUB 538 


>HD 


438 LOCATE X,Y:PRINT " ";:LOCATE X, 


>CP 


Y-liPRINT CHR*(CHAR>; 




448 RETURN 


>ZD 


450 '*** GAUCHE *** 


>RK 


460 GOSUB 530 


>HH 


478 LOCATE X,Y:PRINT " ";:L0CATE X- 


>CU 


l,Y;PfiINT CHR*(CHARl! 




488 RETURN 


>ZH 


498 '**« DROITE m 


>TD 


508 GOSUB 538 


>HC 


518 LOCATE X,Y:PRINT " "::LOCATE X+ 


>CL 


1,Y:PRINT CHRi(CHAR); 




520 RETURN 


>zc 


538 '*** PREND CARACTERE M* 


>RJ 


548 LOCATE X,Y:CALL 48000: CHAR=PEEK >VA 


<M887):RETURN 




550 'm DEPLACEMENT VALIDE 7 *** 


>TA 


560 BI: IF X<1 OR X)FIN OR Y<1 OR Y> 


>TW 


FIN THEN LOCATE t3,9,l:PRINT #3,CHR 




J(7!+CHR*(24>+" Déplacement INTERDI 




T "+CHR$(24) : : DEPLACEE: El : RETURN 




578 LOCATE #3,9,1:PRINT#3,M»(24! + 


>RS 


" DepUcenent correct. "+CHR*<24>;: 




DEPLACE» 1 : CÛMPTEUR=C0MPTEUR+ 1 : ROI NT 




=P0 1 NT- 1: LOCATE K,1,2:PRINT#2,C0MP 




TEUR:EI:RETURN 





580 '*** VERIFICATION *** 
590 LI6NE*="":LI*(FIN>=LI»(FIN>+" " 
:FOR B=l TO FIN:FOR A=l TO FINïPOKE 
48884, !<6+A:L0CATE A,B;PEN 3:CALL b 
8880:NEXT A 

600 FOR C=&8807 TO 1B087+(FIN-1):LI 
GNE$=LISNE*+CHR*(PEEK(C)):NEXT C 
610 IF LI$(B)=U6NE$ THEN LIGNE*="" 
:NEXT B;POKE lBl»4,t?:LIi(FINI=LEFT 
*(LI*(FIN),FIN-1! ELSE POKE 48004,1 
?:LIt(FINI=LEFTtiLI$(FIN),FIN-ll:SO 
TO 660 

620 LÛCATEtl ,8,1: PEN#1 , 0:PRINT« , RE 
«AlNI3!s:SCORE=SCORE+PDINT-(M*t0l:P 
EN #1,1:L0CATE#1,1,7:FRINT#1,CHR*<2 
4"!+" BRAVO "+CHR$(24)+", "+N0MS+" < 
!":PRINT#l,"Vous avez réussi a refo 
ruer le tableau. ":N1=3:N2=5:ATT=588 
8:60SUB 1650:6OSUB 680 
638 CHQIX*=INKEY*;IF CHOIX*="" THEN 

630 

640 IF CH0IX*="1" AND GRILLE=4 AND 
NIVEAU=3 THEN GOTO 1250 ELSE IF CHO 
IX$="1" AND GRILLE=4 THEN NIVEAU=NI 
VEAU+l:GRILLE=l:FIN=FINtl:GOSUB 157 
9:G0SUB 690:GOTO 145 ELSE IF CHOIX* 
="1" THEN GRILLE=BRILLE+1:80SUB 690 
iGOTO 145 

650 IF CHÔIX*="2" THEN GOSUB 980:80 
SUB 157ê:G0T0 80 ELSE IF CHQIX*="3' 

THEN GOTO 1758 ELSE 630 
660 PEN t 1,1: LOCATE tl,l,7:PRINT #1 
,"Vous n'avez pas de chance, ce n'es 
t pas cela.":60SUB 1700:SOSUB 680 
670 CHOIX*=INKEYÏ:IF CHOIX*=" THEN 

670 ELSE IF CH0IX*="1" THEN CLS tl 
:RETURN ELSE IF CHDIX*="2" THEN LOC 
ATE#1,B,1:PEN*1,0:PRINT#1,RE«AIN(3) 
;:80SUB 980:GOSUB 1570:6OTO 80 ELSE 

IF CH0IX»="3" THEN 60T0 1750 ELSE 
670 

680 PRINTtl : PRINT#1 , "Voulez-vous: " : 
PRINT#1 : PRINT#1 , " 1 ) Continuer" : PRIN 
T#l,"2) Reco«siencer":PRINT#l,"3) Ar 
reter": RETURN 

690 '*** INITIALISATION 1 *** 
788 MODE 1:INK 1,1:INK 2,1:INK 3,1: 
HINDOU #0,41-FIN,40,1,FIN:PAPER 2:P 
EN 3:CLS:WND0« #1,1,40,7,23:WNDOW 

#2, 1,34, l,6:UIND0tf #3, 1,40,24, 25:R 
ETURN 

710 '♦*« INITIALISATION 2 »** 
728 CLS; CLS#1:CLS#2: LOCATE #2, 1,1:P 
RINT#2,CHR$(24!+"C0UPS:"+CHR*(24):P 
RINT#2," 8":PRINT #2,CHRI(24)+"TEMP 
5:"+CHR*(24);PRINT*2," 0: 8":P0INT= 
1088:S=0:M=8:COMPTEUR=0 
. 738 RETURN 



748 '*** ECOULEMENT TEMPS *»* >TB 

750 S=S+1:IF S=60 THEN S=0:M=K+1 >ZG 

760 LOCATE »2,1,4:PRINT #2,USING "# >AD 

t";M;:PRINT I2,":"::PRINT #2,USINS 

"#t";S;:IF «=30 THEN RUN 

778 RETURN >ZK 

788 '*** DATA ROUTINE MACHINE *** >TF 

798 DATA CD,60,BB,32,7,B0,C9 >VG 

B88 DATA 3A, 17, 88,47, 3A,16,88,C5,F5 >AC 

,11,0, 8,21, BF,1,D5,E5, El, Di,D5,E5,C 

D, F8,B8,FE, 0,28,31, CD, DE, BB,ED,5B,1 

0,80,2A,14,80,CD,C0,BB,1 1,8,8,21,0, 

0,CD,ED,BB, 11, 2,0,21, 0,0, CD, ED.BB, 

11,0, 0,21, FE,FF,CD,ED,BB, 11, FE,FF,2 

1,0,0,CD,ED,BB,ED,5B,10,80,13,13,13 

,13 

818 DATA ED,53,10,88,E1,D1,F1,C1,FE >YM 

,1,28,9,3D,C5,F5,13,13,D5,E5,1B,A7, 

78,FE,1,CB,5,C5,3A,16,80,F5,11,0,0, 

D5,2B,2B,E5,ED,5B,12,S0,ED,53,10,B0 

,2A, 14,80,26, 2B,2B,2B,22, 14, 80, 18,8 

2,0 

838 '*** DATA POUSSE-POUSSE 4*4 *** >TB 

B40 DATA BUSE, SRUE, IBIS,OIE >XR 

850 DATA LOIR,MARA,PIKA,RAT >XP 

860 DATA 127,128,129,138,131,132,13 >LK 

3, 134, 135, 136, 137, 138, 139, 148, 141 

870 DATA 143,144,145,146,147,148,14 >«D 

9, 150, 151, 152, 153, 154, 155, 156, 157 

888 '*** DATA ROUSSE-POUSSE 5*5 **» >TS 

890 DATA AR60N,AZOTE,ETAIN,PLOMB,21 >JD 

NC 

908 DATA CY6NE,HER0N,HIB0U,PQULE.RA >3» 

LE 

910 DATA 127,128,129,130,131,132,13 >PB 

3, 134, 135, 136, 137, 138, 139, 140, 141, 1 / 

42, 143, 144, 145, 146, 147, 148, 149, 150 

928 DATA 152,153,154,155,156,157,15 ;QZ 

B, 159, 168, 161 , 162, 163, 164, 165, 166, 1 

67, 168, 169, 178, 171, 172, 173, 174, 175 

930 '*** DATA POUSSE-POUSSE 6*6 *** >TC 

940 DATA CHLORE, CUIVRE, NICKEL, SOUFR >Z6 
E, TITANE, XENON 

950 DATA COFFRE, DI0B0N,BARD0N,60UJ0 >Z8 
N, SAUMON, TETRA 

968 DATA 127,128,129,138,131,132,13 >ZA 
3, 134, 135, 136, 137, 138, 139, 148, 141, 1 
42, 143, 144, 145, 146, 147, 148, 149, 158, 
151 , 152, 153, 154, 155, 156, 157, 158, 159 
,160,161 

970 DATA 163,164,165,166,167,168,16 >AE 
9, 170, 171, 172, 173, 174, 175, 176, 177, 1 
78, 179, 180, 181, 182, 183, 184, 185, 186, 
187,188,189,190,191,192,193,194,195 
,,196,197 



r32> 



; 



// 



98e '*** HISE A ZERO *** 
990 RESTQRE 790: FUR A*&B000 TO mm : 
6:READ Vt:V=VAL("& n +V$):POKE A*V;NE 
XT:F0R A=&802& TQ &B0AFiREAD V$:V=V 
ftU n &*+V$):P0KE A,v';NEXT:POKE &8010 
,80iPQKE &8011,0îPOKE &B012,80iPÛKE 

feS013,0:PQKE &B0i4,46FiPQKE &8015, 
liPQKE &80ii,i2e:P0KE &B017,16iPÛKE 

£8039,0 

1000 RESTORE 84y : RAND0HIZE ÎÏHEîFIN . 
=4:NiyEAU=i:6RILLE=i:H0DE 1:CALL &B 
C02:PEN 1: PAPER 
101Ô RETURN 

102O '*** PRESENTATION *** '. 
1030 MODE Iï INK l.lîPEN IsPRINT" PO : 

USSE-PQUSSE "rPRINT" 

fl :CALL &8020:LOCATE 1,25;PRINT:PRIN 

T:PRINT:LQCATE l,4ïINK 1*24 

1040 LQCATE 12,5:PRINT"{Par David P : 

AVEN)":«INDQM #1, 1*4», 1, SïMINDOW 1, 

40,6,25 

1050 LOCATE i,2:PRINT B -PQUSSE-PQU5S : 

E est un jeu ou vous devez reforme 

r des mots puis des .images en ut 

îiisant les flèches corae suit:";PR : 

INT TAB(2;,CHR$!241i+":DepUce ver 

s le bas le caractère situe 3 

u dessus du carre vide, " 

1060 PRINT TAB(2i,CHR$(240)+":Depla 

ce vers le haut le caractère 

situe au dessous du càrrs vide,":PR 

INT TAB(2!,CHR*i243)+":Deplace ver 

s la droite le caractère situe a 

gauche du carre vide." 
1070 PRINT TABt2),CHR*<242)+":Depla 
ce vers la gauche le caractère 
situe a droite du ckrre vide. U ;GÛSU 
B 1170 

1080 CLSiLQCATÉ i,2:PRINT"-Il y a 
trois niveaux differénts:Dans le 
premier niveau, les tableaux mesuren 
t 4*4 caractères, dans le deuxième 
5*5 et dans le troisième 6*6. rt :LÛCÀ 
TE i,7:PRINT"-Chaque niveau compor 
te 4 tabIeaux:Dans les 2 premiers v 
ous devez" 

1090 PRINT CHR$(il)+STRIN6$(2o,CHR$ : 
(9))+" reconstituer des mots et 
dans les 2 suivants vous devez réc 
onstituer des images. "rLOCATE 1,12: 
PRINT"-Au début de chaque tableau. 1 

ordinateur vous donne 1000 points 
,mais il vous en"; 

1160 PRÏNT ■ enlevé 20 toutes le ; 
s minutes et 1 a chaque déplace 
ment (c'est largement suffisant!. A 
prçs chaque tableau votre AMSTRAD 
ajoute ce qui reste de ces pa 



ints 3 ceux qui ont ete précéderas 
rît obtenus (enfin espérons !!)." 
1110 GQSUB H 70 

1120 CLSiLQCATE 1,2:PRINT"-Quand v 
ous pensez avoir entièrement ret 
onstitue un tableau verifiez-le e 
n appuyant sur 'V , votre AMSTRA 
D vous dira alors si c'est correct 
ou non, Dans"; 

1130 PRINT" les deux cas vous aure 
: alors le choix entre: ":PRÏNT," 
-l:Contmuer:Soit vous poursuive: 
la reconstitution du tableau soi 
t vous passez au tableau suivant." 



(j£ft?0SS6> 




i i 40 PRINT," -2:Recom»encer;Vous 
rejoue: depuis le début. "SPRINT, " 
-3:Arreter:A n'utiliser qu'au bord 
de la dépression nerveuse. ":S0SUB 
1179 

1158 CLS:LOCATE l,2;PRINT"-Pour vo 
us aider a reconstituer les ima 
ges.une fonction loupe est prévue 
; En appuyant sur 1 une image deu 
x fois plus grosse apparaîtra. Elle 
sera munie d'un cadrillage qui 
vous sera très utile." 
1140 LOCATE 9,11:PRINT"ET MAINTENAN 
T ALLONS-Y !!":60SUB il70:RETURN 
1178 LOCATE 9,29:PRINT CHR*(24!+" A 
ppuyer sur une touche "+CHRK24! 
1188 CALL MB93:CALL iBB06: RETURN 
1198 '*** 6RILLE A RECONSTITUER *** 



1288 SOSUB 6W:X=l:V=i:FQR A=l TO L >0J. 



EN (CHAINE* > : Ct=MID$ (CHAINES, A, i ï 

1218 LOCATE X,Y:PRINT C*;:X=X+1:IF >BC 

DFIN THEN X=liY=Y+l 

1229 NEXT >K6 

1230 INK i,24:INK 2,26: INK 3,0:CLS# >DT/ 
2:CLS*1:PEN t2,l:PRINT#2,CHR*!24)+" / 
Votre score:"+CHR$(2«:PRINT#2,SC0R 
E:PEN #1,1:L0CATE 11,1, 1:PRINT#1, "- 
Observe: bien ces deux représentât 

ions avant de continuer. ";:PEN #2,1 

iLOCATE #2, 19, 1:PRINT*2, "Tableau nb 

rmal:"; 

1248 GOSUB 1588:INI( 1,1:INK 2,1:INK HZ 

3, 1 : CLS : CLS#1 : CLS#2 : CLS#3: RETURN 
1258 '»** GAGNE *** >Yft 

1268 PRINT#3,REHAIN<3)iH0DE iiPAPER ;« I 

0îPEN kLOCATE l,2:PRINT"-BRAV0,vo / 
us ete un champion "+NÛM$+":":N1=1: 
N2=i5:ASS=7209;6OSUB 1650:PRINT:PRI 
NT" vous ave: réussi a reconstituer 

les 12 représentations. ":PRINT 
1278 PRINT" Il ne vous reste qu un >UA , 
e chose a faire, c'est d'améliorer 
votre score: ";SCORE:PRINT:PRINT"V 
oulez-vous 1) Arrêter ou 2? recomme 
ncer":CALL 46B03 
1288 Rt=INKE¥*:IF R*="" OR (R$0"1" >ËF 

ANO R*<>"2") THEN 1288 EL5E IF R*= 
"1" THEN 1758 ELBE BOSUB 9B0:GOSUB 
1578: GOTO 88 

1298 '*«» REDEFINITION DE CARACTERE >YE 
S *## 

1390 '*«* HOME A LUNETTE SANS CHEV »ffi 
EU); *** 

1318 DATA 8,8,9,8,1,3,3,6,0,63,64,1 M , 
28,128,0,0,9,0,248,4,2,1,8,8,9,8,8, / 
0,0,128,192,224,96, 6,14,14,14,14,9 
,9,9,0,0,0,30,63,94,78,66,9,9,0,15, 
31,238,229,161,112,112,112,112,240, 
224,80,80,9,6,6,2,1,0,0,1,68,33,39 
1329 BATA 9,9,131,196,193,162,31,0, >NÙ 
224, 0, 240, 8, 225, 80, 160, 64, 64, 64, 64, 
128,0,3,7,11,19,99,129,1,1,224,112, 
56,28,15,135,128,128, 2,2,5,9,241,2 
41,1,1,0,0,9,128,64,48,12,2 
1338 '»** HOMME SANS LUNETTE AVEC D >XK 
ES CHEVEUX *♦* 

1349 DATA 0,0,1,3,7,"15,15,15,63,127 >FL 
,255,255,255,255,255,255,249,248,25 (= 
2,254,255,255,255, 255,9,0,9,0,0,1 z 
28,128,192,31,31,31,15,15,31,31,15, 3 
255,255,240,128,0,9,0,248,199,7,7,7 "î 
,27,97,129,176,224,224,224,224,224, | 
224,224,224,15,15,15,7,3,3,1,0,180, S 
52,4,4,4 1 

1359 DATA 132,131,128,48,9,0,32,16, >BE .2 
136,0,0,144,144,144,160,160,64,64,1 | 
28,9,0,0,9,0,0,3,15,71,34,35,17,24, J 



fl^vv 1 ** 



252, 254,255,241, 33,227, 195,7, 15.31, ' 

255,6,8,6,8,0,0,0,6,8 

1366 '*»* ELEPHANT D'ASIE SE PROHEN >ÏC 

ANT **» 

137B BATA 6,8,8,8,1,6,4,5,6,6,6,0,2 >NF 

55,92, 118,97,8,9,0,31,224, 128, 128,2 

24,9,9,224,28,3,9,9,9,8,9,6,9,8,192 

,48,24,8,24,19,19,16,16,16,32,299,1 

2, 9, 1 , 79, 183, 127,255, 160, 194, 194,28 

2,291,145,144,144,8,8,9,8,8,1,194,9 

,12,14,42,79,79,134,6,6,39,46,124,5 

2,36,36,36 

1389 DATA 36,63,15,3,3,7,6,14,14,12 >FN 

,75, 132, 167, 63, 15, 56, 16,8, 1,2, 4, 196 

,252.62,31.6,6.18.15,15.15,22,8.52, 

28, 1», 15,7,56, 127,255, 15, 14, 14,287, 

286,222,63,254,16,168,96,168,39,63, 

31,159,31,31,15,15,15,255,255,255,2 

32, 152, 164, 196, 136,28», 168, 249,255, 

255, 127 

1398 DATA 127,63,15,8,8,255,255,255 >BD 

,255, 255, 255, 8,8, 255, 255, 255, 255, 25 . 

5,255, 8, 9,255, 255,254,254, 252,248,9 ' 

,8,8,8,9,9,8,9,9,9,8 

1488 '♦** AVION SURVOLANT DES MONTA >XH 

GNES ♦♦* 

1418 DATA 8,8, 8,8,8,8,8,9, 9,8,9,8,9 >ML 

,8,9,9,9,8,9,9,8,8,1,7,8,9,8,9.48,2 

49,224,192,9,9,8,6,9,9,9,224,9,9,9, 

8,15,31,15,6,9,9,9,7,255,255,255,3, 

127,63,126,252,255,255,255,248,128, 

1,3,7,255,255,252,8,224,224,248.246 

,224,224,96,8,8,9,6,6,8,9,8,8,1,7,8 

,8,6,8,8,6 

1428 DATA 248,252,62,247,3,6,9,9,8, >HM 

6,8,8,6,8,8,6,9,8,8,6,6,9,8,6,9,9,8 

,6,8,9,9,9,8,8,9,9,8,6,6,9,6,6,9,9, 

9,9,9,3,6,9,6,6,6,8,8,128,8,6,6,8,8 

,8,8,9,9,9,9,8,9,6,15,21,9,6,31,53, 

196,213,235,215,126,213,179,85,171, 

215,175,223,224,88,174,87,179,213,1 

71,87,9,7 

1439 DATA 26,245,171,87,176,213 >XJ 

1448 '«** HIPPOCAMPE (CHEVAL DE MER.XYB 

) *** 

1458 DATA 6,8,8,6,8,6,6,8,6,6,6,12, >NF 

11,24,15,8,5,13,54,56,217,1,242,29, 

48,246,264,178,156,188,47,198,6,8,9 

,9,9,9,8,64,8,9,9,9,8,8,8,8,68,68,1 

24,68,68,8,16,16,8,8,6,8,9,1,2,2,7, 

3,29,119,149,82,41,165,31,228,183,7 

4,253,158,288,96,128,6,128,8,6,6,6, 

6,62,32,32 

1466 DATA 32,62,9,62,34,16,16,16,9, >LU 

124,68, 124,64,6,5, 4,7, 5,5,3,3, B7, 29 

, 193, 153, 223, 177, 297, 185, 255, 126, 25 

4, 254, 252, 252, 252, 248, 8, 6, 8, 8, 6, 6, 8 

, 0, 62, 34,34, 6, 34, 54, 42, 34, 64, 8, 124, 



68,124,64,64,8,2,3,3,7,3,1,6,6,239, 

73,247,164,159,139,133,2,248,126,24 

8,176,144 

1478 DATA 128,96,168,8,8,8,8,8,8,6, >HU 

8,34,8,62,34,62,32,32,8,124,68,68, 

68, 124, 8, 6, 8, 6, 8, 6, 6, 6, 8, 6, 8, 1 , 8, 6, 

8,8,6,6,9,89,248,88,194,52,68,36,28 

,8,8,6,8, 6,8,8,6,62,32,66,32,62,6, 

8,6,8,6,6,8,8,8,8,8,8,8,6,6,6,6,8,6 

,7,15,13,11,5,7,8,6,148,156,52,232, 

68,224,6,8 

1489 DATA 6,8,8,8,8,6,8,8,6,8,8,8,8 >GR 

,8,6,6,6 

1496 'H* PANDA GEANT: SYMBOLE DE SA >¥G 

UVEGARDE *** 

1566 DATA 8,65,65,65,65,125,9,6,6,2 >K6 

48,8,224,6,246,9,6,6,62,34,62,32,32 

,6,1,8,256,139,258,138,138,8,128,6, 

47,46,168,164,47,8,6,6,62,162,198,1 

62,34,9,8,6,6,8,8,8,8,9,9,8,9,9,8,1 

,2,4,8,3,3,31,110,152,56,112,224,19 

2,192,254,3,1,9,9,8,6,8,6,224,246.2 

46,224,64 

1516 DATA 8,8,6,8,8,6,6,6,9,0,0,6,9 >LA 

,6,8,6,8. 16, 16, 16,17, 17, 19,27,224,2 

25, 227, 243, 251 , 252, 254, 255, 6, 192, 78 

,266,16,14,182,145,64,32,32,32,48,1 

12,248,248,6,6,6,6,6,8,6,6,8,6,6,6, 

8, 6, 6, 8, 63, 63, 63, 63, 63, 62, 62, 28, 255 

,255,255,255,255,255,255,127,255,25 

5,255,129 

1526 DATA 129,131,227,247,248,248,2 >NN 

48,248,248,248,248,248,6,6,6,8,6,6, 

8,8,8,8,6,8,6,8,8,8,6,8,8,6,8,6,0,6 

,63,31,7,8,148,156,149,148,247,243, 

224,0,128,128,128,128,224,192,6,0,6 

,0,0,0,6,8,6,6,6,0,8,6,8,6,61,32,66 

,4,66,8,0,6,26,166,69,68,68,6,244,6 

,92,216,94 

1536 DATA 82,92,6,128,0,244,148,148 JH 

,148,247,0,8,6,66,32,56,32,188,6.0, 

0,8,0,8,8,8,8,8 

1546 RESTORE 1316:SY=127:F0R IM=1 T >MB 

2: FOR N=l TO 128 STEP BlREAD A,B, 

C,D,E,F,E,H:S¥HBOL SY,A,B,C,D,E,F,B 

,H:SY=SY+1:NEXT N:RESTORE 1348-.NEXT 

IM:RESTORE 836:RETURN 
1556 RESTDRE 1376; SY=127: FOR IM=1 T )MD 
2iF0R N=l TO 286 STEP 8:READ A,B, 
C,D,E,F,G,H:SYMBOL 3Y,A,B,C,B,E,F,6 
,H;SY=SY+1:NEXT N:RESTORE 1418:NEXT 

IM:RESTOR£ 898:RETURN 
1568 RESTORE 1456:SY=127;F0R Itt=l T >MZ 
2:F0R N=l TO 289 STEP 8:READ A,B, 
C,D,E,F,S,H:SYMBOL S¥,A,B,C,D,E,F,S 
,H:SY=SY+1:NEXT N;RESTORE 1596:NEXT 

IMiRESTORE 948:RETURN 
À1576 ON FIN-3 BOSUB 1548, 1556, 1566: /JN 



RETURN 

1586 »** LQUPE *** 
1598 POKE 18010, (638-FIN*32)/2:P0KE 
5,8011, 0:POKE 48812, (638-FIN»32)/2; 
POKE Î<8613,6:P0KE 48014,4FE:F«E 48 
815,6:P0KE 48616,FIN»8:PÛKE 48617, F 
IN*8:P0KE 4S82D,4BE:P0KE 4S62E,i:P0 
KE 4862A,448-(16«<FIN-4i>:P0KE 4862 
B,2:P0KE 48639,2 

1686 POKE 48695. 446-ll6*(FIN-4! ): PO 
KE 48696,2 

1616 HINDOU I4,28-FIN-H,26+FIN,16,9 
+FIN*2: PAPER M,2:CLS#4:CALL 48026 
1620 C=(638-FIN*32!/2:FÛR A=0 TO 32 
♦FIN STEP 32:M0VE C+A,254:DRAHR 8,- 
FIN*32,3:M0VE C,254-A:DRANR FIN*32, 
6:NEXT A 

1638 LOCATE #1,Î,4:PEN tl,l:FRÎNT»i 
,"îableau":PRINT#l, "agrandi: ":UKBT 
E #3,2,1:PRINT#3,CHR*I24)+" Appuyer 
sur une touche pour continuer "+CH 
R*I24):CALL 4BB03 

1640 R*=INKEY$:IF R$="" THEN 1640 E 
LSE WNDOW #1,1, 40,7, 23:CLS#1:CLS#3 
: RETURN 

1650 '*** APPLAUDISSEMENTS NOURRIS 
*#* 

1660 FOR I=N1 TO N2 
1676 SOUND 5,3,268,15-1,6,8,31 
1686 NEXT:FQR N=l TO ATT:NEXT N 
1696 RETURN 
1786 '«* PERDU *** 
1718 ENV 1,15,-1,16 
1726 ENT -1,18,4,1,1,-26,1 
1736 SOUND 2,868,8,15,1,1 
1748 RETURN 
1758 '*«* FIN »*♦ 

1760 PRINT CHRtl7);:PRINT#3,REMAINl 
3>:M0DE 1:PAPER 0:PEN 1:L0CATE 13,1 
UPRINT CHR$(24)+STRIN6$(14," "!+CH 
R»(24):L0CATE 13,12:PRINT CHRS1241+ 
" Au revoir M "+CHR$< 24): LOCATE 13 
,13:PRINT CHR*(24>+STRINB»(14," ")+ 
CHR*i24i+STRIN6t(10,CHR$(18l):RESTO 
RE 1886 

1765 FOR ATT=1 TO 1860;NEXT ATT 
1776 READ PERIODE, DUREE 
1780 IF PERIODEO-1 THEN SOUND 1,PE 
RIODE, DUREE: SOUND 2, PERIODE+2, DUREE 
: SOUND 4,PERI0DE+2,T)UREE ELSE END 
1796 BOTO 1770 

1806 DATA 638,60,478,85,6,5,478,25, 
8,5,478,68,379,68,426,96,478,36,426 
,66,379,69,478,85,6,5,478,36,379,68 
,319,68,284,175,6,5,284,66,319,96,3 
79, 25, 6, 5, 379,66, 478, 68, 426, 96, 478, 
36,426,68,379,68,478,90,568,25,8,5, 
568,60,638,60,478, 120, -!,-!• 



;ML 
>WK 
>ZT 
>FK 
,>ïA 
>LR 
>RY 
>RG 
)FF 
>YF 
>UT 



>YD 
>TX 
)ZH 



>NK 

?JV 
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AMSTAR 

Mensuel informatique 
vendu en kiosque et 
par abonnement, 
Présentation de jeux 
et nouveautés sur Amstrad . 
Tous les mois un concours I 



CPC 





ARCADES 


jqrcacleSj* 






Mensuel informatique et 




communication vendu en 


fdjERr-v- 


kiosque et par 


4i r ,: **"' 


abonnement, 


■rir ' 


Présentation de jeux. 


Ki J g* < '>if.;'- 


nouveautés, sur toutes 


h$m> 


machines, consoles de 
Jeux et minitel. Concours 
mensuel permanent. 



Mensuel informatique 
dédié aux ordinateurs 
Amstrad 



MEGAHERTZ 
MAGAZINE 

Mensuel de 

communication amateur 
actualités. Informatique 
technique. 




VIVEZ LA MICRO EN FAMILLE 

Toutes nos revues 

sont vendues en kiosque. 



Istrc 
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mwc-MocKy. 
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CPCHS 

Numéro hors-série 
comprenant uniquement 
des listings sur Amstrad . 
Paraît tous les deux mois. 



PCOMPATIBLES 
MAGAZINE 

Mensuel informatique 
consacré aux ordinateurs 
compatibles. Actualité, 
technique, listing. 



ASTROLOGIE 
PRATIQUE 



Mensuel d'astrologie (et 
non de voyance). Outre 
l'information, les thèmes 
développés touchent à 
la pratique sérieuse de 
I astrologie. 



Si vous souhaitez recevoir un exemplaire de presse, envoyez 20 F en timbre ou chèque à : 
Editions SORACOM- La Haie de Pan- 35170 BRUZ. 
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PROFITEZ DES PRIX BRETAGNE EDIT'PRESSE 



BOITES DE 
RANGEMENT 
MEDIA BOX 
POSSO 




Pour 40 
à 150 disquettes 



1 3", 3" 1/4, 3" 1/2 



nsf 



DISQUETTES, «•» , 

Recommandé facultatif 
3" par Boîte 7 F en plus 






COMPACT 
DISC 

Pour 13 compact 
dises 

Port 25 F 
Recommandé facultatif 

par Botte 7 F en plus 



Pour 

16 minicassettes 



95F 



CASSETTES, «?,,,, 

Recommandé facultatif 

AUDIO p" B ° ite 7 F en p |us 





/42F 



VIDEO 

Pour 9 cassettes 

vidéo VHS, V20Q0 

Beta 



Port 25 F 

Recommandé facultatif 
par Boîte 7 F en plus 




Pour 50 
à 70 disquettes 

/75F 



DISQUETTES pm25F 
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• Boîte DATA Case 5"1/4 (50 disk) 
10 disquettes D F D D 5"1/4 
Votre petit cadeau surprise gratuit 
d'une valeur de 50 F 



120 F 

+ 

Port et emballage 25 F 

Total Lot 145 F 



• 1 Boîte DATA Case 3"1/2 (40 disk) 
10disquettesDFDD3"1£ 

Votre petit cadeau surprise 
d'une valeur de 50 F 



260 F 

+ 

Port et emballage 25 F 

Total Lot 285 F 



• 1 Boîte DATA Case 3" (20 disk) 

10 disquettes MAXELL D F D D 3" 
Votre petit cadeau surprise 
d'une valeur de 50 F 



340F 

+ 
Port et emballage 25 F 

Total Lot 365 F 



• Boîte DATA Case seule 
3" 3"1/2 5"1/4 



85F+15FPort 
et emballage 
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BON DE COMMANDE 

A adresser à BRETAGNE EDir PRESSE - La Haie de par, - 351 70 BRUZ - Tel. 99.57.90.37 
Réf. Qté Prix unit Montant (écrire en majuscules) 



Forfait de port + emballage 
Recommandé (facultatif) 



25 F 



10 F 



NOM. 



Code postal . 



.Ville. 
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Ce numéro de CPC est un hors-série ne com- 
portant que des listings. Il paraît tous les deux 
mois dans les kiosques et il est offert aux abon- 
nés. Ne confondez pas avec le CPC mensuel ! 
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AMSTRAD» 
CPC est une i 



iemarque déposée. 

e mensuelle totalement indépen- 



dante d'AMSTRAD GB et D'AMSTRAD FRAN- 
CE. 

Les noms, prénoms et adresses de nos abonnés sont 
communiqués à nos services internes du groupe, 
ainsi qu'aux organismes liés contr actuellement 
pour le routage. Les informations peuvent faire 
l'objet d'un droit d'accès et de rectification dans le 
cadre légal. 

Les articles et programmes que nous publions dans 
ce numéro bénéficient, pour une grande part, du 
droit d'auteur. De ce fait, ils ne peuvent être imi- 
tés, contrefaits, copies par quelque procédé que ce 
soit, même partiellement sans l'autorisation écrite 
de la Société SORACOM et de l'auteur concerné. 
Les opinions exprimées n'engagent que la respon- 
sabilité de leurs auteurs. Les différents montages 
présentés ne peuvent être réalisés que dans un but 
privé ou scientifique mais non commercial. Ces ré- 
serves s'appliquent également aux logiciels publiés 
dans la revue. 

Dépôt légal à parution 
Distribué en Suisse par : 

SEMAPHORE -Tfl. 02254.1 1.95 




R 





Il est difficile de taper un programme 
d'une revue sans commettre d'er- 
reurs ! Quand les erreurs sont signa- 
lées (Syntax error in. . ., Une does not 
exist in...), la correction est facile puis- 
que la ligne est indiquée, mais 
lorsqu'au "point de vue" du CPC, le 
programme est correct, il peut en être 
tout autrement pour le lecteur : 
Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossi- 
ble de retrouver l'erreur commise, à 
moins de comparer les lignes de votre 
programme avec celles du journal 
mais c'est très long et on risque de pas- 
ser sur une erreur sans la voir. 
C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas vos erreurs. 
La frappe d'un programme de votre 
journal favori (CPC) terminée, vous 
faites "RUN" et là, vous corrigez tou- 
tes les erreurs signalées par le CPC en 
vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne tou- 
jours pas, suivez cette procédure : 

— sauvez votre programme en ASCI I 
grâce à l'instruction : Save "nom 
prog", A. 

Puis, si vous êtes sur K7, rebobinez la 
bande jusqu'au début du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu'à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX< ; c'est le code' qui va vous 
permettre de savoir d'où proviennent 
les erreurs. Pour cela, il faut que vous 
compariez les codes du journal à ceux 
de Técran. Si un code diffère, notez 
sur papier le numéro de ligne qui cor- 



IGrégory NOE 



respond à ce code. Continuez ainsi 
jusqu'à la fin du listage. 
Le défilement terminé, recherchez 
votre programme et corrigez les lignes 
que vous avez notées en comparant 
avec le journal. Faites "RUN" et ô 
miracle ! ça marche. 
Attention, iors de la frappe du pro- 
gramme a traiter, n'omettez aucun 
caractère (sauf les espaces) car Anti - 
Erreurs les prend en compte et bien 
sûr, ne tapez pas les codes de contrôle.. 



A TTENTION : cette nouvelle ver- 
sion n'est pas compatible avec 
l'ancienne. Seuls les programmes 
publies dans ce numéro possèdent 
un code anti-erreurs correct. 
Les instructions de chargement res- 
tent, elles, inchangées. 



ANTI - ERREURS 



10 ' *(«#*#»#*♦*(*#♦**#*♦**♦#»»*#* 

26 ■ # t 

38 ' * 

m ■ # 

50 ' * 

68 ' # 



VERSION 2.8 * 
t 
78 ' *»*»*«»♦#*»*#*»***#*#*#*#*#♦ 



(c) CPC \ 6. NOE 1987 



'< INITIALISATION > 
'■ <««««««««««««« 

.58 ' 

68 ON ERROR 60TO 1258 

78 HODE 2 

88 DM G*<23) 

.98 FOR 1=8 TO 22:READ G*:6*(I)=G*: 

NEXT 



288 'ATTENTION LA LIGNE DE DATA CI- >RC 
DESSOUS NE CONTIENT PAS TOUTES LES 
LETTRES DE L'ALPHABET ! I ! 
218 DATA fliB,C,0,E,F,6,H,J,K,L,H,N, >AD 
P,Q,R,-T,U,V,N,X,Y,Z 

228 ' ANTI-BUS FICHIER >RE 

238 IF PEEK(HIMEM+1)=255 THEN 2B8 >ZD 

248 OPENOUT "CPC" >NA 

258 MEMORY HIMEM-2 >NX 

268 CL0SE0UT >RJ 

278 POKE HIMEM+1,255 >FP 

288 DEFINT B-Z >«H 

298 ' >TB 
388 BORDER 6:!NK 8,i:INK 1,16:PEN 1 >JN 
: PAPER 8 

318 MOVE 8, 16:DRAB 658,16 >TK 

328 PRINT TABI27) "A N T I - E R R >GU 
EUR S ";CHR$(24l;"Version 2.8" 
;CHR*(24) 

338 MOVE 8,385:DRAW 658,385 >UJ 
348 LOCATE 24,25:PRINT"CPC REVUE DE >EV 
S STANDARDS AMSTRAD" 

358 WINDOW 1,88,3,23 >NL 

368 M$="Rss!ise par Brsgory NOE" /HJ 

378 F»="" >XA 

388 FOR 1=1 TO LEN(M$! )PU 

398 F*=F$+MID*(M*,I,i) >PL 

488 LOCATE 78-I,5:PRINT F$ >UL 

418 FOR T=l TO 188 >LQ 

428 NEXT T,I >EF 

438 ' >RH 
448 ' ##♦********#*#*********##**** >RJ 
**** 

458 ' >RK 

468 LOCATE 2,l:PRINT"ENTREZ LE NOM >XT 
DU FICHIER : "; 

478 INPUT "%NF* >FD 

488 IF NF$="" THEN PRINT CHR«(7!:60 >6R 
TO 468 

498 LOCATE 2,3:PRINT"IRPRIMANTE OU >VR 
ECRAN (I/E)?" 

588 R*="":«HILE R$="":R*=UPPER*(INK >NK 
EV»):NEND 

518 IF R»="I" THEN CA=8:PRINT»BRANC >XD 
HEZ-LA..." ELSE 548 

528 PRINT#8,CHR*(27);"!";CHR*f20) >AR 

538 GOTO 568 >ZF 

548 IF R$="E" THEN CA=8:G0T0 568 >VQ 

558 B0T0 588 >ZB 

568 CLSiLOCftTE 2,3:PRINT"TANT QUE L >0R 
E LISTAGE N'EST PAS TERMINE" 

578 LOCATE 2,5:PRINT"NE PAS ARRETER >JW 
LE MAGNETOPHONE OU NE" 

588 LOCATE 2,7:PRINT"PAS SORTIR LA >TL 
DISQUETTE" 

598 LOCATE 2,18:PRINT"PRESSEZ UNE T >HH 
OUCHE POUR LA LECTURE" 

688 CALL ((BB85 >LH 

618 ' >RH 

628 ' «««<«««««««« >RJ 



'f^ 



630 '< TRAITEMENT DU FICHIER > 


>RK 


448 ' »»»»»»»>»»»» 


>TA 


658 ' 


>TB 


668 OPENIN "!"+NF* 


>LF 


678 CLS:PRINT"TRAITEMEf»T EN COURS.. 


>JR 


688 IF LEN(A*)=255 tHEN ft*="":LINE 


>¥« 


INPUT*9,8*!60T0 1168 




698 LINE INPUT#9,B$:A$=B* 


>UE 


788 IF CflOB THEN BOSUB 1318 


>VF 


718 IF INKEY(66!=8 THEN STOP 


m 


728 ' 


>RK 


738 ' CALCUL DE LA CLE DE CONTRO 


>TA 


LE 




748 ' 


>TB 


758 B=8:FLB=8 


>«B 


768 FOR 1=1 TO LENfA»! 


>PH 


778 L*=MD»(ft»,I,l> 


>riu 


788 IF L*=CHR»(34) AND FL6=1 THEN F 


,>PC 


LS=0:SQTD 848 




798 IF L$=CHR*(34) AND FLB=0 THEN F >PD 


LB=1:60T0 848 




888 IF L*=QM(32) AND FLGOl THEN 


>cx 


858 




810 IF L$=CHR*(39> AND FL6=0 THEN 8 


>Cfl 


68 




820 IF FL6=1 THEN 848 


>iœ 


830 L$=UPPER$(L$) 


>MC 


848 A=A+ASC(L*)+I 


;LU 


858 NEXT I 


>PB 


128 ' \\ \\ 


>RD 


138 ' \\ "Computer Disco" \\ 


>RE 


140 ' \\ U 


>RF 


158 ' //Conçu et réalise par// 


>RB 


160 ' // Rodolphe DEJEUNES // 


>RH 


178 ' // II 


>RJ 


180 liililimilllilllllllll 


>RK 


190 ' 


>TA 


248 MODE 1 : LOCATE 12.10:PRINT CHR$( 


>VO 



870 CH*=STR*(A) 

888 CH$=RISHTt(CH*,LEN(CH*)-l) 

898 L=LEN(CH$):L2=LEN(CH*)/2 

988 A=VAL(LEFT*(CH*,L2» 

910 C=INT(A/23) 

928 P=A-(C*23> 

938 C$=S$(P> 

948 A=WL(RISHT*(CH$,L-L2» 

958 C=INT(A/23);P=A-(C*23) 

968 Ct=C*+S$(P) 

978 ' 

988 FOR 1=1 TO 6 

998 L*=MIDS(A$,I,1> 

1008 IF L$<"0" OR L«>"9" THEN 1038 

1818 Li$=LI*+L* 

1828 NEXT 

1038 VH*="":FOR 1=1 TO LEN(A*):IF A : 

SC(MD*(A$,1, 11X32 THEN VH*=VH*+" 

"ELSE VH$=VH$+HIMI«*,I,1) 

1848 NEXT I:B*=VH* 

1050 ' 

1060 IF CA08 THEN 1070 ELSE 1098 

1078 PRINT LI»;TABU0) ">"iC* 

1088 LI*="":BOTO 1168 

1090 LI*="":PRINT#CA,LEFT$(B$,55!;T 

ABI57) ">";C* 

1180 IF LEN(B$X55 THEN 1168 

1110 FG=1 

1128 B$=MD*(B$,56,LEN(B*1) 



>TE i 


1130 PRINT#CA,LEFT$(B*,551 


m 


>CC 


1148 IF FB=1 AND CAOB THEN FB=0:6O >VB 


>YC 


SUB 1318:G0T0 1150 




>XA 


1150 GOTO 1108 


>LG 


>TY 


1168 IF EOF=-l THEN CLOSEIN ELSE 60 >HD 


>AH 


TO 688 




>LJ 


1170 IF CA=8 THEN CALL SrBB03;PRINT 


>RJ 


>XC 


TAB(50) CHR»(24);"UNE TOUCHE...";CH 




>HH 


R$(24):CALL &BB85 




>UT 


1188 CLS:PRINT"HAINTENANT RECHARGEZ 


>JC 


>TD 


";NF*i" ET CORRIGEZ LES LIGNES SUE 




>TB 


VOUS AVEZ NOTEES. . " 




>«K 


1190 END 


>¥K 


>MY 


1208 ' 


>XF 


>XJ 


1218 ■ ««««««««««««< 


m 


>XF 


1220 '< TRAITEMENTS DES ERREURS > 


:>m 


>KE 


1230 ' «««««<««<<«««« 


>XJ 


>EK 


1240 ' 


>XK 




1258 IF ERR=25 THEN CLS:PRINT CHR»( 


;>yc 




7);CHR«(24);"FICHIER NON ASCII";CHR 




m 


*(24):END ELSE CQNT 




>XJ 


1268 ' 


>YB 


m 


1270 ' «<«<«««««««<«« 


>YC 


>HZ 


1280 '< ATTENTE TOUCHE... > 


>YD 


>ND 


1290 ' «<««««««««««« 


>YE 


>9M 


1308 ' - 


>XG 




1310 COM=COH+kIF C0li>19 THEN CALL 


>AF 


>UT 


&BB03:PRINT TABI58)' "UNE TOUCHE..." 




>CB 


:CALL 8.BB05:CLS:CON=1 




>UB 


1328 RETURN 


>EK 



34)t"CoiPUter Di5co"+CHR*!34}:L0CAT 

E 10.13:PRINT CHR$(164)+" 1986 - R. / 

DEJEUNES" 

250 DATA 1.1,3.4,5,4,3,1.0,1,3,4,5, )QF 

4,3,0,1,1,3,4,5,4,3,1,0,1,3,5,4,0,3 

I ■ i - 

I 260 DIH n!32i:REST0RE 250:FOR i=l T >ZJ 
D 32:READ ndiiNEXT i 
270 DATA 179, 159, 142, 127, 149,106,95 >FB 
,89,80 

280 DIH g(10):RESTORE 270:FOR i=l T >XE 
9:READ oii!:NEXT i 
298 DATA 5,3,1,2,5,3,1,2 >0R 

308 DIH til6):REST0RE 298:F0R i=l T >YZ 
SiREAD ttihNEXT i 
310 DATA 1.2,3,1.1.2,3,2,1,2,3,1,1, >QJ 
2,3,3,1,2,3,1,1,2,3,2,1,2,3,1,1,4,1 
,4 

328 DIB b!32i:RESTQRE 318iFDR i=l T >YK 
32;READ bii):NEXT i 



338 DATA 1911,38,8.1,60,10,0,5 

340 DIH h(4i.v!4):REST0RE 330:FOR i 

=1 TO 4:READ h(i) ,v(i):NEXT i 

350 ENV 1,1. 15,1. 15.-1, 2:ENV 2.8.-2 

,1:ENV 3, 1,15,1, 15,-1. 4:ENV 4.3,5,1 

. 15.-1. 1:ENV 5,1,13.1.3,-1,2,10,-1. 

8:ENV 6,1,15,1,3,0,1,15,-1.12 

368 TEH=18 

370 FOR i=l TO 9:S0UND 7,5(1), 5, 6:N 

EXT 1 

380 FOR i=l TO 32:S0UND 4,hib(i!).t 

eni,0.bui,,v(b(i!):SOUND 3.g(t(lll, 

Se«/2,4i SOUND 3.0,te«/2,0:NEXl 1 

390 FOR i=l TO 8 

480 a=oit!lî) 

418 If'a=179 THEN q!4i=134 ELSE q(4 

5=127 

428 a=a*2 

430 FOR j=l TO 32 

440 SOUND 34,a,te«/2,0.5:SOUND 28.h 

ibul),te»,0,bi.jl,,v(b(.jii:SOUND 1, 

git(ii+n(j)-l),te*,0.6*SSN(n())i:SO 

ÛND 2,a/2,tein/2,0,5 

450 NEXT i,i 

460 «ODE 2 

470 IF 2=1 THEN FOR 1=1 TD 8: SOUND 

l,9(t(l)+n(i)-l),tei8,0,6»SBN(n(i)): 

NEXT i:END 

480 FOR i=l TO liiSDUND l.flitditnf 



/HA o 



i!-îi.ten,0,6*SGN!n(iii:SOUND 6.0. t 

ei,0:NEXT 1 

490 FOR 1=1 TO 2IF0R i=l TO 32-.S0UN >XD. 

4.h(b(i)),te«i,0.bUi,,v(bti)):SOU 

ND3,0,te«.0;NEXT i,j 

500 RESTDRE 550:FDR l=! TO 63:READ >Z(1 

t,d:SQUND 3,h!ti,d*te«i,0.t,,viti:SO / 

UND 4,0,d«te»,0;NEXT 

510 FOR i=l TO 32:SQUND 4,h(b(iii.t >AZ 

em,0,'b(ii,,v(bii)):SOUND 3,0.teit,0: 

NEXT 1 

520 FOR 1=1 TO 16:S0UND l.aitiii+ni ;>DC 

i)-l),te»,0,6«SBN(n(i)):SOUND 4,qtt 

il!+n(i)-l)/2.te«,0,6*S6N(n(ii)iSOU 

ND 2,0,te»,0:NEXT 

538 IF 2=0 THEN z=l:60T0 390 >VY 

540 END >TC 

558 DATA 1,3,1,1.1,3,1,1,1,3,1,1 >XB 

560 DATA 1,1,3,1,1,1,3.1 >QF 

576 DATA 1,3,1,1,1,3,1,1,1.3.1,1 >XJ 

580 DATA 1,1,3,1,1,1,3,1 >0H 

598 DATA 1.3,1,1,1,3,1,1,1,3,1,1 >XL 

688 DATA 1,1,3,1,1,1,3,1 >0A 

610 DATA 1,3,1,1,3,4,1,3,1,1,3,4,1, >ICX 

3,1,1,3,4,1,3,1,1,3,1,3,1,3.1,3,1 

628 DATA 1,1.5,2,0.5,3,1,1,1,1,1.5, >MV 

2,0.5,3,1,1,1 

630 DATA 1.0.5,1,1,1,8.5,1,1,1,0.5, >AV 

2,0.5,2,1, 2,1, 2,1. 5,4,8.5» 



MUSIQUES 



V'La soupe aux choux" 



Adapt.; R.DEJEUkEE . 



//// 



14e 

156 
160 
170 

m 

i% ' 

208 HOUE 1 : LOCATE 10.10:F'RINT CHR*i 
34i+"La soupe aus choux"*CHR$(34):L 
OCATE •16.13:PRINT"Ada»te par K.DEJE 
UNES" 

21» ENV 1.1.15.1,18.-1.1.2.2.1.9,-1 
,3 

226 ENT -1.1. 1.1.1. -1.1 
236 ENV 2.3.5, 1.2.-1.6. 13.-1. 12;ENT 
2.1.4.1.2.-2,1 
240 READ c.n.i.a 
250 T=T+1: IF T=100 THEN MODE 2 
260 IF c=0 THEN END 
270 IF c=l OR c=33 THEN SOUND c.n.i 
,0,1,1. a ELSE SOUND 0,0,1.9.2.2 
280 SOTO 240 

290 DATA 1.426.24,0,1.851.24,0,1,42 
6,24,0,1.851,24.0,1,426.24.0,1.851. 
24,0,1,426,24,0.1.851,24.0 
300 DATA 33.426,24.0,12,71,12,0,4,8 
0, 12, 0,33,851, 24.0. 12, B9, 12, 0,4.95, 
12,0,33,426.24,0.12,106,24,0 
310 DATA 33.851,24,0,12,104,12,0,4, 
119,12,0,33,426,24,0,12.106,24,0,33 
.851.24,0,12.106.12,0,4,119,12,0.33 
,426,24,0,12.106.12,0,4,95,12,0,33, 
851.24,0,12,89,12,0,4,80.12,0 
320 DATA 33,426,24,0,12.71,12.0,4,8 
0,12,0,33,851,24,0.12,89,12,0,4,95, 
12,0,33,426,24,0,12,106,24,0 
330 DATA 33,851,24,0.12,106,12,0,4, 
89,12,0,33,284,24.0,12,95,12,0,4,10 
6,12,0,33,568,24,0.12,95,12,0,4,119 
,12,0.33,284,24,0,12,142,48.0,1,568 
,24.0 

340 DATA 33,426,24,0,12,71,12,0,4,8 
0,12,0,33,851,24,0,12,89.12,0.4.95, 
12,0,33,426,24,0,12,106.24,0 
350 DATA 33,851,24,0,12,106,12,0,4. 
119,12,0,33,426,24,0,12,104,24,0,33 
,851.24,0,12,106.12.0,4,119,12,0,33 
,426,24,0,12,106,12,0,4,95,12,0.33. 
851,24.0,12,89,12.0,4,80,12,0 
360 DATA 33,426,24,0,12,71,12.0,4,8 
0,12,0,33,851,24,0,12,89,12,0,4,95, 
12,0,33,426,24,0,12,106.24,0 
370 DATA 33,851,24,0,12,106,12,0,4, 
89.12,0,33,284,24,0,12,95,12,0,4,10 
6,12,0,33,568,24,0,12,95,12,0,4,119 
,12,0,33,284,24,0,12,142,48,0,1,568 



■RQ 



Rodolphe DEJEUNES 



,24,0 

380 DATA 33,268,24,0,12,134,24,0,33 >ZK 

,536,24,0.12,134.12,0,4,119.12,0,33 

,268,24.0,12,106,12.0,4,95,12,0,33, 

536,24.0,12.89,24.0 

390 DATA 33.358.24. 0.12, S?. 12,0, 4. 5 M 

0.12,0.33,716,24,0,12.71,24,0.33,35 

8,24,0,12.71,12,0,4.67.12,0.33,716. 

24,0,12,60,24.0 

400 DATA 33,268,24.0,12,134.24,0.33 >HZ 

.536,24,0,12,134,12.0,4,119.12.0.33 - 

,268.24.0,12,106.12.0,4.95,12.0,33, 

536, 24, 0, 12, B9. 48, 0, 1 . 478, 24, 0,33, 9 

56,24,0,12,119,24,0,33.478,24.0,12, 

119,48,0,1,956,24,0 

410 DATA 33,268.24,0,12,134.24,0,33 >ID 

,536,24,0,12,134.12,0.4,119.12,0.33 

,248,24,0, 12, 106, 12,0,4,95, 12,0,33, , 

536,24,0,12.89.24,0 

420 DATA 33,358,24,0,12,89,12,0,4,8 >RU 

0,12,0,33,716,24,0,12,71,24.0,33,35 

8,24,0,12,71,12,0,4,67,12,0,33,716, 

24.0.12,60,24,0 

430 DATA 33,426,24.0,12.67,12,0.4,7 >NL 

1,12,0,33,851,24,0,12,80.12.0.4,89. 

12,0,33,426,24,0,12,95,12,0,4.89,12 

,0,33.851.24.0,12,80,12.0,4.95.12,0 

,33,284,24.0,12,71,96,0,1.568.24.0, 

1,284,24,0,1,548.24.0 

440 DATA 33,426,24,0.12.71,12,0.4,8 >DQ 

0,12,0.33,851,24,0.12,89,12,0.4,95, 

12,0,33,426,24,0.12,106,24.0 

450 DATA 33,851,24,0,12,106,12.0,4. >VA 

119,12,0,33,426,24,0,12,106,24,0,33 

,851,24,0.12,106,1-2,0,4,119,12.0,33 

,426,24,0,12.106,12,0,4.95,12,0.33, 

851,24,0,12,89.12.0,4,80,12,0 

460 DATA 33,426,24,0,12,71,12,0,4,8 >DT 

0,12,0,33,851,24,0,12,89,12,0,4,95. 

12,0,33,426,24,0,12,106,24.0 

470 DATA 33,851,24,0,12,106.12.0,4, >RR 

89,12,0,33,284,24,0,12,95,12,0.4,10 

6,12,0,33,568,24,0,12,95.12,0,4,119 

,12,0,33,284,24,0,12,142,48,0,1,568 

,24,0 

480 DATA 33,426,24,0,12,71,12,0,4,8 >DV 

0,12,0,33,851,24,0,12,89,12,0,4,95, 

12, 0^33, 426, 24,0,12, 106,24,0 

490 DATA 33,851,24,0,12,106,12,0,4, >VE 

119,12,0,33,426,24,0,12,106,24,0,33 

,851,24,0,12.106,12,0,4,119,12,0,33 

,426,24,0,12,106,12,0,4,95,12,0,33. 

851,24,0,12,89,12,0,4,80.12,0 

500 DATA 33,426,24,0,12,71,12,0,4,8 >DM 

0,12,0,33,651.24,0,12,89,12,0,4,95, 

12,0,33,426,24,0,12,166,24,0 

510 DATA 33,851,24,0,12,106,12,0,4, >RL 

89,12,0,33,284,24,0,12,95,12,0,4,10 



6,12.0,33,568.24.0,12,95,12,0.4.119 

,12,0,33,284,24,0,12,142,46,0,1,568 

.24.0 

520 DATA 33.268.24,0,12,134,24,0,33 : 

.536.24,0,12.134,12,0.4,119,12,0.33 

, 268, 24, 0, 12, 106, 12, 0, 4, 95, 12, 0,33. 

536,24.0,12,89,24.0 

530 DATA 33.358,24,0,12,89,12,0.4,6 

0,12, 0.33, 716, 24, 0,12, 71, 24,0.33.35 

8,24,0,12,71,12,0,4.47,12.0.33.716, 

24.0,12.40,24.0 

540 DATA 33.266,24,0.12.134,24,0,33 ; 

,536,24,0,12,134.12,0,4,119.12.0.33 

,26c, 24,0, 12, 106. 12. 0,4. V j, 12,0, -j-j, 

534,24,0,12,89,48,0,1,478,24,0,33,9 

56,24,0,12,119,24,0,33.478.24.0,12, 

119,48,0,1,956,24,0 

550 DATA 33,268,24,0,12,134,24,0,33 

,536,24,0,12,134,12,0,4,119.12.0.33 

,268,24,0,12.106,12,0,4,95.12.0.33, 

536,24,0,12,89,24.0 

560 DATA 33,358,24,0,12.89,12.0.4.8 : 

0,12,0,33,716,24,0,12,71,24,0,33,35 

8,24,0,12,71,12,0,4,67,12,0,33,716, 

24,0.12,66,24,0 

570 DATA 33,426,24.0.12.67,12,0,4.7 ; 

1.12.0.33,851,24,0,12,80.12.0,4.89, 

12,0.33,426,24,0,12,95,12,0.4.89,12 

,0.33,851,24,0,12,80,12,0.4,95.12.0 

,33,284,24,0,12,71,96,0,1,568,24.0, 

1,284,24,0,1,568,24,0 

580 DATA 33,426,24,6,12,106,12.0,4, : 

95,12,0,4,89,12,0,4,106,12,0,1,851, 

24,0,33,426,24,0.12,71,144,0,1,851, 

24,0,1.426,24,0,1,851,24,6,1,426,24 

,0.1,851,24,6 

590 DATA 33,478.24,0,12,119,12,0,4. , 

106,12,0,4,95, 12,0,4, 119, 12, 0.1. 956 

,24,0,33,478,24,6,12,71,144,0,1.956 

,24,0,1,478,24,0,1,956,24,0,1.478.2 

4,0,1,956,24.0 

600 DATA 33,424,24,0,12,166,12,0,4, ; 

95,12,0,4,89,12,0,4,106,12,0,1,851, 

24,6,33,426,24,6,12,71,144,6,1,851, 

24,0,1,426,24,6,1,851,24,0,1,426.24 

,0,1,851,24,0 

610 DATA 33,478,24,0,12.119,12,6,4, ', 

106,12,0,4,95,12,0,4,119,12,0,1,956 

,24,0,33,478,24,0,12,71,144,0,1,956 

, 24, e, 1,478, 24,0, 1,956,24,0, 1,476,2 

4,6,1,956,24,0 

620 DATA 33,424,24,0,12,71,12,6,4,8 : 

0,12,0,33,851,24,0,12,89,12,0,4,95, 

12,0,33,426,24,0,12,104,24,0 

630 DATA 33,851,24,6,12,106,12,6,4, ; 

89,12,0,33,426,24,0,12,95,12,0,4,80 

,12,0,33,851,24,0,12,71,12,0,4,60,1 

2,0,33,426,24,6,12,53,24,0 

640 DATA 0,0,0,0 j 







E 



u 



Vous êtes un 



fervent 



cruciverbiste ? 
Concoctez vous- 
même vos grilles et 
imaginez des 



définitions 



tortueuses sur 8x8 



carres. 



1* r * option : 
CREER GRILLE 

Avant de jouer sur des grilles, il faut 
les créer. Vous pouvez créer jusqu'à 
30 grilles 8 x 8 par fichier. La saisie de 
la grille est automatique (DEL pour 
revenir en arrière), la touche < 1 > 
sert à entrer les carrés. Pour les 
définitions, respectez la longueur 
maximum simulée par des tirets sinon 
l'affichage de celles-ci sera dcsordon- 



2- option : JOUER 

la grille affichée contiendra les mots 
ou lettres déjà trouvées si vous le 
souhaitez, vous pourrez ainsi 
reprendre votre recherche où vous 
l'aviez laissée. Déplacez l'étoile 
clignotante sur une case vide puis 
appuyez sur <RETURN>. Tapez 
< 1 > pour entrer un mot horizontal 
ou <2> pour un mot vertical. La 
saisie est alors automatique même si 
des lettres ont déjà été trouvées. Les 
lettres justes restent, les mauvaises 
s'effacent. 

Dernière option : 

CHARGER FICHIER 

Cette option se passe de commentai- 
res. 



MOTS CROISES 

•Philippe PERROTTEY 




Ai/Lderrfé tr 



VARIABLES PRINCIPALES 



cl$(31,9,9) 
c2$(31,9,9) 

d$(31,17) 

se 

"g 



: contient toutes les grilles du fichier 

: contient les lettres trouvées par le joueur dans 

chaque grille 
: contient les définitions de chaque grille 
: nombre de cases pleines dans la grille sélectionnée 
: nombre de grilles dans le fichier 
: numéro de grille sélectionnée 



10 '************** >LA 

20 ' H0T5 CROISES >LB 

J0 >(_Q 

4» ' F'h PERROTTEY >LD 

50 ************** )LE 

m DIM cl$(31,9,9),c2*!31,9,9),d»(3 >EZ 

1,17) 

65 DEFINT a-z >PH 

70 ================ >LB 

8« ' MENU PRINCIPAL >LH 

98 '====■=====■====== >LJ 

m MODE 0:INK 1,26: 1NK M:INK 2,1 >LB 
4: BORDER 

110 PRINT CHR* (22i ; CHR* < 1 > ; : TAGiMOV >MZ 
E 132,366,2:PRINT"M0TS CROISES": : TA / 
SOFFiLOCAÏE 5. 3: PRIMT"MOTS CROISES" 



;CHR*(22):CHR»10) 

120 PLOT 112,376, hDRAHR 4l6,0;DRAi» >LF 
R 0,-32:DRA«R -416,0:DRA»R 9,32 
130 n$(l)="J0UER":n$(2)="CREEF; GRIL >LV 
LE":n$(3)="CHARGER FICHIER" 
140 y=10 >tU 

150 FOR i=l TO 3 >VF 

160 LOCATE 10-LEN(n*(il)/2,y:PRINT >LD 
" ";tl*(i! 

170. y=y+5 >HD 

180 NEXT >EE 

190 y=W ;SD 

200 LOCATE 10-LEN(nf(¥ ■-:;:, y:FA ;>LN 
PER 1:PEN 2:PRINT";";nS y :-: >i' '.-: 
PAPER 0-.PEN 1 
210 e*=INKEY»!lF e*="" '«s ::<■ >X« 




_ 



22» IF e*=CHR*(13) THEN (IODE 2:y=y/ >EC 

5-l:ON y GOTO 286, 1078, 1338 

236 IF e»=CHR$<248> IHEN y=y-5:ee=5 >GX 

:IF y<16 THEN y=10:GOTO 268 ELSE 26 

« 

248 IF e$=CHR*(241i THEN y=y+5:ee=- >RN 

5: IF y>20 THEN y=28:60T0 260 ELSE 2 



258 BOTO 218 

260 LOCATE 18-LENln»((y+eei/5-l))/2 
,y+ee:PRINT " ";n*(iy+ee)/5-i)" " 
278 BOTO 280 



>PE 

>VH 

288 '===== >TA 

290 ' JOUER >TB 

308 '== >RD 

310 5C=0:CLS:IF ng=0 THEN NODE 0:LO >6X 
CflTE 3,12:PRINT"PAS DE FICHIER":FOR 

1=1 TO 1008:NEXT:GOTO 108 
320 INPUT"Entrsz numéro grille sur >TS 
laquelle vous voulez jouer ou [0] 5 
i celle-ci est déterminée au h 
asard : ",gn:CLS 

330 IF gn=0 THEN gn=INT(RND*ng)+l ,>BN 
340 IF gn>ng THEN 320 >ND 

358 BOSUB 1750 >QC 

360 GOSUB 1910 >QB 

370 IF sc=64 THEN WHILE INKEY$="":L >6H 
OCATE 25,25:PRINT"VOUS AVEZ FINI CE / 
TTE GRILLE...": FOR t=l TO 158:NEXT: 
LOCATE 1.25:PRINT CHR$(18) jiFQR t=l 

TO 150:NEXT:t€ND:CLS:GOTO 920 

380 LOCATE 38,25;PRINT CHR*(24);"[C ,:>UB 
0PY]";CHR*(24);" pour arrêter" 

390 ' >TC 

406 ' TEST CLAVIER JRE 

410 ' >RF 

426 x=4:y=6 >VF 

430 LOCATE 2,22:PRINT li >YZ 
":LDCATE 2,24:PRINT " 

440 c2*=c2*(gn,K/2-l,y/2-2i:IF c2*= >PL 
"" THEN c2»=" " 

450 e$=INKEY$:IF e*="" THEN LOCATE >QX 
x,y:PRINT"«":FOR i=l TO 150:NEXT;LO 
CATE x,y:PRINT c2»:F0R i=l TO 156:N 
EXT:60T0 458 

466 IF e*=CHR*(224> THEN CLSlBOTO 9 >DY 
26 

470 IF e*=CHR*<13) AND c2»=" " THEN >CH 
538 

488 IF e$=CHR$<243> THEN LOCATE x,y >OH 
:PRINT c2$:x=x+2;IF x>18 THEN x=18 

498 IF e$=CHR*(242! THEN LOCATE x,y >HB 
:PRINT c2*:k=x-2:IF x<4 THEN x=4 
506 IF e$=CHR*(240) THEN LOCATE s, y >HZ 
:PRINT c2*:y=y-2:IF y<6 THEN y=6 



• " ' • il B 



510 IF e»=CHR»(241) THEN LOCATE x,y >QT 
:PRINT c2$;y=y+2:IF y>20 THEN y=26 



520 GOTO 440 



>ZB 



536 LOCATE 2,22:PRINT"1 - Horizonta >XE 

lèsent": LOCATE 2,24:PR1NT"2 - Verti 

calement" 

540 e*=INKEY*:IF et="" THEN 540 >XJ 

558 e=VAL(e») >KE 

560 IF 6=1 THEN LOCATE 2,22:PRINT C >TC 

HR»(24))"1 - Horizontalement";»») 

24);:G0T0 580 

570 IF e=2 THEN LOCATE 2,24:PRINT C >AF 



SERVEUR 
MINITEL 

N'oubliez pas 
36.15 code MHZ 



i-ft' 



La B.A:L. permet un dialogue direct avec 
la rédaction. ^?~^.-*3& 



HR$(24)i"2 - verticale»ent";CHR*(24 
);:S0T0 5B0 ELSE 548 
580 ON e GOTO 590,756 >NF 

59f) ■ _ >TE 

608 ' SAISIE HORIZONTALE >RG 

6ie ' >rh 

626 e=l:xl=x:x2=x >HA 

638 LOCATE x2,y:PRINT CHR*<243):F0R >AL 

i=l TO 158iNEXT:LOCATE x2,y:PRINT" 

":F0R i=l TO 150:NEXT 
640 e*=UPPERt i INKEV*) ; IF e*="" THEN >FF 

630 

656 e* le) =e*: LOCATE x2,y:PRINT e»(e >DX 
) 

666 x2=x2+2:IF c2$(gn,x2/2-l, y/2-2! >F« 
=CHR*(143) OR x2>18 THEN 690 ' 
678 IF c2»(gn,x2/2-l,y/2-2K>"" THE >CQ 
N IF c2»(gn,(x2+2)/2-l,y/2-2)OCHR$ 
1143) OR x2+2<=18 THEN e=e+l:e»ie)= 
c2*(gn,x2/2-l, y/2-2) :sc=sc-l:60TB 6 
60 ELSE 698 

680 e=e+l: BOTO 638 >«C 

698 FOR i=l TO e >YC 

780 IF ci*(qn,sl/2-l,y/2-2K>e*li! >RZ 

THEN LOCATE xl,y:PRtNT" "iGOTO 720 

718 c2*(gn,xl/2-l,y/2-2i=cl*(gn,xl >XP 
/2-1, y/2-2) :sc=sc+l 

726 xl=xl+2 m 

736 NEXT >EF 

740 IF sc=64 THEN 1816 ELSE 398 >«Z 



758 ' 

760 ' SAISIE VERTICALE 

770 ■ 

786 e=l:yl=y:y2=y 

796 LOCATE ;<,y2:PRINT CHRt(241):F0R 

i=l TO 158: NEXT: LOCATE x,y2:FRINT" 

"iFOR i=l TO 150:NEXT 
868 e*=UPPER*UNKEY$):IF e»="" THEN 

796 

816 e$(e!=e»:LOCATE x,y2:PRiNT e$!e 
) 

828 y2=y2+2:IF c2t(gn,x/2-l,y2/2-2) 
=CHR*(143i OR y2>20 THEN 850 
830 IF c2*ign,x/2-l,y2/2-2K>" THE 
» IF c2*lgn,x/2-l,(y2+2)/2-2)OCHR* 
(143) OR y2+2<=20 THEN e=e+l:e$(e!= 
c2* (gn, x/2-i , y2/2-2) : sc=sc-l :60TO 8 
26 ELSE 858 
848 e=e+l:G0T0 798 
856 FOR i=l TO e 
860 IF cl*(gn,x/2-l,yl/2-2)Oe«(i) 

THEN LOCATE x,yl:PRINT" "iGOTO 886 

B78 c2*(gn,x/2-l,yl/2-2)=ci*(gn,x/ 

2-l,yl/2-2):sc=sc+l 

888 yl=yl+2 

898 NEXT 

900 IF sc=64 THEN 1016 ELSE 398 

916 ' 

926 ' ARRET DU JEU 

936 ' 

946 PRINT"Voulez-vous .jouer sur une 
autre grille iO/N) ?" 
958 e*=UPPER*(INKEY*):IF e$0"O" AN 
D e»<>"N" THEN 950 
960 IF e$="0" THEN 280 
976 CLS:PRINT"Voulez-vous sauver vo 
s mots trouves dans toutes les gril 
les (O/N) ?" 

988 e*=UPPERt(INKEY*i:IF e*O"0" AN 
D e$<>"N" THEN 988 
998 IF e*="N" THEN 188 
1686 BOTO 1548 

1818 ' 

1028 ' GRILLE FINIE 

1836 : 

1035 LOCATE 2,22<PRINT* 

":LCCATE 2,24:PRINT " 



>TC 

:>TD 
>TE 

>MM 
•AR 



>FL 
>DV 
>FD 
>CC 



■«H 
>YA 
>RP.< 



M 
>FC 
>NX 
>TA 

:TB 
>TC 

,VB 

>VQ 

>NN 

■PS 



>NF 
>LJ 
>XE 
•>XF 
>XG 
>AV 



1040 NH1LE INKEY*="": LOCATE 28,25:P >XB 
RINT"BRAVO ! ' VOUS AVEZ FINI CETTE 
BRILLE "":F0R t=l TO 158:NEXT:L0CA 
TE 1,25:PRINT CHRtU8)::F0R t»i TO 
150: NEXT: WENDiCLS: GOTO 920 
1050 ============= >XJ 

1066 ' CREER GRILLE >XK 

1870 '========== >YA 

10B8 IF ng>36 THEN HODE 6:L0CATE 4, >JH , 



_.„_ 



• ■ 



■ SfflWaR 



wmmmMmm - - ' 



12:PRINT"FICHIER PLEIN":FOR i=l TO 
1080:NEXT::6ÛTO 100 ELSE LIS 
1090 gn=ng:gn=gn+l >NP 

1H» 60SUB 1758 m 

1110 LOCATE 38,25:PRINT CHR*!24>;" >QK 
ENTREZ VOTRE GRILLE "jCHR»(24)| 
1126 x=4:y=6 >EL 

1138 LOCATE x,y:PRINT CHR$(243):F0R >ZK 
i=l TO 150:NEXTllOCATE x,y;PRINT" 
":F0R i=l TO StBiNEXT 
1148 e$=UPPER»<INKEY*):IF et*"" THE /SB 
N 113» 

1158 IF ASC(e*)=127 THEN LOCATE x,y >NY 
iPRINT" ":x=x-2:IF s'A THEN x=18:y= 
y-2: IF y<6 THEN y=6:60TO 113» ELSE 
1138 ELSE 1138 
1168 IF ASC(e$!=49 THEN e*=CHR$!143 >B8 

1178 cl*(gn,x/2-l,y/2-2)=e$:LDCATE M 

ï,y;PRINT e$ 

1188 x=x+2:IF x=28 THEN s=4:y=y+2:I >LB 

F y=22 THEN LOCATE 1,25:PRINT CHR$( 

18);:SOT0 1288 

1198 BOTO 1138 >HD 

1288 LOCATE 25,4:PRINT CHR$(24);"i >NB 

- Horiîontalraant'iLOCflTE 25,14:PRI 

NT"2 - Verticalement" 

1218 LOCATE 28,25:PRINT" ENTREZ LES >HL 

DEFINITIONS ";CHR$(24i; ' 
1228 y=4 >XA 

1238 FOR 1=1 TO 16 >LG 

1248 y=y+lsIF y=13 THEN y=15 >WA 
1258 LOCATE 25, y: IF i<9 THEN PRINT >CL 

RISHT*(STR*ll+180),2); ELSE PRINT 
RI6HT*(STR»U-8+lW),2)i 
1268 PRINT H .";STRINS$(58,"-"I >XY 
1278 LOCATE 28,y:INPUT",d*(gn,i) >BE 



1288 NEXT i 

1298 IF ng=38 THEN 1328 ELSE CLS:RR 

INT"Voulez-vous créer une autre gri 

lie (O/Nl ?" 

1388 eJ=UPPER*(INKEY*):lF e$O"0" A 

ND e*<>"N" THEN 1388 

1318 IF e*="0" THEN 1888 

1328 BOTO 1548 

1338 ==================== 

1348 ' CHAR6ER UN FICHIER 
1350 =================== 

1368 CLS: INPUT"No« du fichier a cha 
ryer : ",nf$ 
1378 OPENIN nf* 
1388 INPUT#9,ng 
1398 FOR i=l TO ng 
1488 FOR y=l TO 8 
1418 FOR x=! TO 8 
1428 INFUT#9,cl*i],x,y) 
1438 INPUT»9,c2*(l,x,yi 
1448 NEXT K 
145» NEXT y 
1468 NEXT i 
1478 FOR 1=1 TO ng 
1488 FOR d=l TO 16 
■1498 INPUT#9,d«il,d) 
1588 NEXT d 
1518 NEXT i 
1528 CLOSEIN 
1538 BOTO 188 
1540 ================ 

1558 ' SAUVER FICHIER 
1568 '================ 

1578 CLS:INPUT"No« du fichier a sau 
ver : ",nfî 
1588 OPENOUT nf* 
1598 «ITE#9,ng 
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... VOUS ETIEZ ABONNE A CPC 

VOUS AURIEZ REÇU CE NUMERO 

GRATUITEMENT ! 
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1688 FOR 1=1 TO ng 

1618 FOR y=l TO B 

1628 FOR s=l TO B 

1638 l#ITE#9,ci*u,;i,y; 

1648 «RITE#9,c2*il,x,yl 

1658 NEXT x 

1668 NEXT y 

1678 NEXT l 

1688 FOR i=l TO ng 

1698 FOR d=! TO 16 

1708 »RITE#9,d»(l,d! 

1718 NEXT d 

1728 NEXT i 

1738 CLOSEOUT 

1748 BOTO 188 

1750 ' 

1768 ' TRACABE GRILLE 

1770 ' 

1788 LOCATE 6,2iPRINT"6RILLE N.":RI 

GHT*iSTR*!l08+qn!,2i 

1798 e=8:F0R i=3 TO 17 STEP 2:e=e+l 

iLOCATE i,4:PRINT e:NEXT 

1888 e=8:F0R 1=6 TO 20 STEP 2:e=e+l 

iLOCATE l.i:PRINT e:NEXT 

1810 FOR 1=20 TO 148 STEP 16:H0VE i 

,328,1:DRA* 8, -256: NEXT 

1820 FOR 1=328 TO 72 STEP -32:nWE 

20,i:i3RAWR 128,0:NEXT 

1838 IF gn>ng THEN ng=ng+l:GOTO 198 



1848 FOR y=l TO 8 

1B50 FOR x=l TO 8 

1860 IF cl»(5n,x,y)=CHR»(143i THE 

N LOCATE x*2+2,y*2+4:PRINT CHR*(143 

);c2»(gn,;<,y)=CHR*!143i 

1870 IF c2*(gn,K,yK>"" THEN LDCA 

TE »2+2,y«2+4:PRINT c2*(gn,x,y):5c 

=5C+1 

1880 NEXT x 
1890 NEXT y 
1980 RETURN 
1910 ' 

1920 ' AFFICHAGE DEFINITIONS 
1930 ' 

1948 y=4 

1958 LOCATE 25,4:PR1NT CHR*l24):"Ho 
rizontalement" 

1968 LOCATE 25,14:PRINT"Verticale»e 
nt";CHR*(24); 
1978 FOR 1=1 TO 16 
i960 y=y+l 

1990 LOCATE 25, y; IF i<9 THEN PRINT 
RIGHT»(STR»ii+108l,2); ELSE PRINT 
RI6HT$(STR*(i-8tl08),21i 
2000 PRINT", ";d*ign,il 
2010 IF y=12 THEN y=14 
2820 NEXT' 
2030 RETURN 
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RELIEFS 
MATHEMATIQUES 



RELIEFS MATHEMATIQUES est un 
programme graphique permettant de créer 
des images de surfaces générées à partir de 
fonctions mathématiques du type z=f(x,y). 
En fait, "RELIEFS MATHEMATIQUES" 
ambitionne de visualiser lesdites surfaces 
selon l'aspect qu'elles auraient si on les 
matérialisait. Cela implique que leur 
représentation tienne compte de la réalité de 
la perspective (le programme crée un effet 
de perspective à trois points de fuite) mais 
également de la quantité de lumière que 
chaque élément de la surface renvoie à l'œil 
de l'observateur (selon leur position par 
rapport à la source lumineuse qui les éclaire, 
ces éléments sont plus ou moins clairs, d'où 
l'effet de relief). De plus, "RELIEFS 
MATHEMATIQUES" offre la possibilité de 
visualiser les fonctions à tracer sous 
n'importe quel angle. 
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Figure 1 



PRINCIPE 

DE FONCTIONNEMENT 

Une fois entrés les données et paramè- 
tres qu'on lui a fournis (nous les ver- 
rons plus loin) le programme com- 
mence par découper le domaine 
d'étude en triangles équilatéraux ; il 
s'arrange en tout cas pour qu'un 
pavage de triangles équilatéraux 
recouvre la totalité de ce domaine 
(fig. !)• 

Les sommets de ces triangles ont cha- 
cun une abscisse X et une ordonnée Y 
à partir'desquelles sont calculées les 
coordonnées Z d'altitude (fig. 2). 
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Figure 2 
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triangle B 



Cette troisième coordonnée, pour cha- 
cun des sommets, permet de définir un 
nouveau triangle B dont les sommets 
appartiennent à la surface à tracer. Le 
triangle B est en fait la projection 
approximative du triangle A sur la 
surface (voir schéma précédent) dont 
nous considérons qu'il constitue une 
facette. On définit alors un vecteur Vn 
orthogonal au plan du triangle B et 
dirigé dans le sens des Z croissants et 
urt vecteur Vecl reliant la source lumi- 
neuse éclairant la surface au centre de 
la facette. En fonction de l'angle que 
forment ces deux vecteurs, le pro- 
gramme détermine quelle couleur il 
devra affecter à cette facette, sachant 
que plus l'angle est grand, plus cette 
couleur est claire. 

Les facettes sont ensuite affichées à 
l'écran en partant de celles qui sont le 
plus éloignées de l'observateur vers 
celles qui sont les plus proches ; c'est 
l'algorithme du peintre. 

MODE D'EMPLOI 

Tout d'abord exprimer la fonction à 
tracer dans le DEF FN de la ligne 110. 
Placer son nom dans le SAVE de la 
ligne 990, juste après le point d'excla- 
mation, en vue d'une sauvegarde de 
l'image. 

Le programme est alors prêt à fonc- 
tionner : le lancer par RUN puis 
répondre aux indications de l'écran. 

— Xmin, Xmax, Ymin, Ymax sont 
les bornes inférieures et supérieures du 
domaine d'étude, respectivement par 
rapport aux axes X et Y. 

— Degré de maillage : ce paramètre 
sert à définir la finesse du tracé : plus 
il est grand, plus la surface à afficher 
est réaliste. 




— Angles de vision vertical et hori- 
zontal, distance de l'observateur : ces 
paramètres correspondent aux coor- 
données sphériques de la position de 
l'observateur (fig. 3). 



— Pour l'option suivante, sélection- 
nez le choix 2 quand la surface que 
vous avez à tracer présente des asymp- 
totes, sinon toujours choix 1. 

— Angles vertical, horizontal d'éclai- 
rage et distance de la source lumi- 
neuse : coordonnées sphériques de la 
position de la source lumineuse éclai- 
rant la surface. 

— Sélection d'un mode d'affichage. 
Choix 1 : ce choix est réservé aux 
écrans monochromes. Le programme 
travaille en mode et l'effet de relief 
sur les surfaces est réalisé grâce à l'uti- 
lisation des 16 nuances de vert dispo- 
nibles à l'écran. Si cette option est 
sélectionnée, le programme demande 
de choisir le degré de luminosité de la 
source éclairante. Le degré 5 donne en 
général des images bien contrastées. 
Choix 2 : ce choix s'adresse à tous les 
types d'écran. Les nuances de couleur 
sont réalisées par ' 'tramage' ' . Si cette 
option est sélectionnée, la possibilité 
est alors offerte d'avoir un affichage 
des facettes avec leur contour. 
L'ordinateur annonce par un 
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"BEEP" que le tracé est terminé. 
Vous avez alors la possibilité de sau- 
vegarder votre image en pressant la 
touche "ENTER", de voir le temps de 
calcul s'afficher en pressant la touche 
"T". Si la fonction visualisée présente 
des asymptotes et que vous la jugez 
mal centrée, vous pouvez demander 
un nouveau tracé où l'image sera 
translatée vers le haut ou vers le bas 
d'un certain nombre de pixels ; pres- 
sez pour cela la touche d'espace et 
entrez une valeur positive (translation 
vers le haut) ou négative (translation 
vers le bas). 

Les images sauvegardées en mode 
sont récupérées par les instructions 
for I = 1 TO 15 : INK 1,1 + 5 : NEXT 
1 : INKO.O BORDER : MODE 
LOAD"!" 

Celles en mode 2 par : MODE 2 
LOAD"!" 

NOTER QUE : 

— Certains degrés de maillage affec- 
tés à certaines fonctions entraînent à 
certains moments des anomalies de 
fonctionnement du programme. Dans 
ce cas arrêter le programme et recom- 
mencer en changeant le degré de mail- 
lage d'une ou deux unités. 

— Pour que "RELIEFS MATHE- 
MATIQUES" fonctionne sur CPC 
664 et CPC 6128 il faut enlever le 
SPEEP WRITE 1 de la ligne 990. Il 
faut également modifier les lignes 
suivantes : 

90 MEMORY &9FFF 
960 IF Mo = 2 THEN CALL 
&A040.15 

2060 CALL &A040, Trame 
2330 CALL &A040.15 



10 REM ************************* 

28 REM * * 

» REM * RELIEFS NATHErWiaUES * 

46 REM * » 

50 REM * car T.Ehillan net. 87 * 

68 REM * * 

78 REM ************************* 

88 MODE 2 : INK 1.24 

TO MEMORY SABFF 

le» ON ERROR GOTO 2698 

116 DEF FN f<X,Y>= 

128 INPUT'Xniin » ",X(iin 

136 iNPUT'Xnax = ",X»ax 

146 INPUT'Vnun = ",Y«m 

158 INPuT"Y»ax = "Jinax 

168 INPUFDegre de «alliage 

1 

176 PRINT 

186 INPUT'Angle de vision vertical 
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2510 POKE &BDE9.&0 : POKE , 

&BDEA.&A0 

2520 AD = &A000 

2535 POKE &A017.&A0 
2540 AD = &A040 : n = 
2555 POKE &A059.&A0 
2580 CALL &A040.15 

La ligne 2536 diffère selon les 
modèles : 

2536 POKE &A025.&71 pour les CPC 
6128 

2536 POKE &A025.&6D pour les 

CPC 664 

Quelques exemples : 

fonction 5 * COS(COS(SQR(X»X + 

Y*Y))) 

paramètres dans leur ordre respectif : 

-10; 10; -10; 10; 80; 30; 30; 40; 40; 1 ; 

60; 120; 10; 1; 5 

temps de calcul : 3 h 32 min 56 s 

5 * COS (COS(SQR(X»X + Y*Y))) 
paramètres : -10; 10; -10; 10; 50; 90; 
0; 40; 1; 60; 120; 10; 1; 5 
temps de calcul ; 1 h 20 min 45 s 

3 * SIN(X)12 * SIN(Y) 
paramètres : -3,14; 3,14; -3,14; 3,14; 
50; 25; 320; 15; 1; 40; 20; 100; 1; 5 
temps de calcul : 1 h 28 min 19 s 

10 « SIN (PI/2 * SQR(X*X + 
Y*Y))/SQR(X*X + Y*Y) 
paramètres : -10; 10; -10; 10; 50; 30; 
25; 40; 1; 30; 60; 100; 1; 5 
temps de calcul : 1 h 29 min 28 s 

10 » SIN (PI/2 * SQR(X»X + 
Y»Y))/SQR(X*X + Y»Y) 
paramètres : -10; 10; -10; 10; 50; 30; 
25; 40; 1; 30; 60; 100; 2; N 
temps de calcul : 1 h 29 min 38 s 

. Thêta <-¥6<Theta<96) : ", Thêta 
196 INPUT'Angle de vision horizonta >VM 
1 Phi (8<Phi<3681 : ".Phi 
286 INPUT'Distance de l 'observateur >0M 
a l'origine : %Ray 

216 PRINT >NF 

226 DE6 : ct=C0S (Thêta) : st=SIN!Th ,'fl 
eta) : cp=C0S(Phi) ! sp=SIN(Phii 
236 Pasy-!Y«ax-Y»in)/r1ail : Pasx=Pa >Ttl 
sy*SQR(3i/2 

246 Xnaxav=X»ax >MQ 

256 Xmax=X«in+(INT<u«iax-X«in!/Pasx >RZ 
)tll*Pasx 

266 IF Xnax=X«axav+l THEN Xi»ax=Xuax >HJ 
av 
270 PRINPSelectionnez une option : >PC 

286 PRINT" 1. Affichage de la tota >CN 
lite de la surface calculée" 
' 298 PRINT" 2. Affichage de la surf >EB 



ace tronquée" 

366 INPUT">".opt .'LE 

316 PRINT >N0 

328 INPUT'Angle vertical û eclairag l'EM 

e Alpha i-98<Alpha<98) : ", Alpha 

338 INPUT'Angle horizontal d éclair M. 

âge Beta (8<Beta<366) : ",Beta 

346 INPUT'Distance de la source lu» >XB 

ineuse a l'origine : ",R 

358 PRINT >PÂ 

366 Xecl=R*C0S(fllphal*COS(Beta> '>BM 

378 Yecl=R*CÛSl«lpha)*5IN(Beta) ;>BV 

386 Zecl=R*SIN(Alphal M 

396 RAD : ' si nécessaire \>AC 

466 PRINT"Selectipnnez un iode d'af >BC 

fichage :" 

418 PRINT" 1. Mode (écrans fflonoc >FM 

hromes uniquement? : mode FILL 1 ' 

420 PRINT" 2. Mode 2 : «oae TRAMES >BB 

438 INPUT">",no >HH 

440 PRINT >PA 

456 IF Mo=i THEN INPUT"Degre de lui >KD 
inœite (6-il! i ".Lusi 

468 IF Mo=2 THEN INPUPDesirez-vous .'VU 
le contour des facettes ? CD/M) : 
",Bord$ 

478 DIH YllMail+l,3),Y2(Mail+2,3) >AT 

486 i=6 >PC 

496 FOR Y=Y(nin TO Y«ax STEP Pasy >BC 

566 i=i+l >BK 

516 Yl(i,2)=Y >LB 

526 NEXT Y >QB 

536 i=8 >NJ 

546 FOR Y=Y'min-Pasy/2 TO Ymax+Pasy/ >RC 
2 STEP Pasy 

550 i=i*i >EE 

566 Y2(i,21=Y >LH 

576 NEXT Y >QS 

588 IF Mo=l THEN Fang=PI/l4 ELSE Fa >v7 
ng=PI/15 : Coul=l : G0SUB 2510 : 60 
T0 660 

590 INK 6,0 : BORDER : PAPER >WC 

600 FOR i=2 TO 15 >CE 

618 INK i,Luu+i >FG. 

628 NEXT i >N6 

636 REM ******************** >TR 

646 REM Sous-progra«me de calcul d >DV 
es extrema et centrage 

656 REM ******************** >TU 

668 Tpav=TIr€ >ï& 

676 XEim=2000 : YEmin=XE«in >XM 

680 XEmax=-2088 : YE«ax=XE»ax >YP 

690 PX=(X»ax-X«lini : PY=tï«iax-Yflun) >LM 
tpasy 

700 IF opt=l THEN FX=PX/16 : PY=F'Y; >EK 
16 

' 710 FOR X=X»in TO X«iax STEP PX >YP 
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726 FOR Y=Ynin-Fasv/2 TO Ymk+P»s >PL 

y/2 STEP PY 

7313 BOSUB 2428 

746 XE«in=MIN(XE«in,XE) : XEiiax 

=MAX!XEna,<<,XE) 

75» YEimn=MIN(YE»in,YE! : YEliax 

=MAX(YEi»x,YE) 

768 NEXT Y 

778 NEXT X 

788 Ecrx=666 : Ecry=366 

798 Edu=£crx/!XE«iax-XE«in)/l,87 

888 Echy=Ecrv/ (YEaan-YEiin) 

818 IF opt=l THEN Echs=niN(Ech;<.Ech 

y) 

828 Echy=Echx : Echx=Echx*1.67 >YY 
638 Xcent=(648-Echx*txEuax+xE!iiin))/ >FB 

848 Ycent=i468-Echv»(YE«ax+YE»in!)/ >FF 



858 REM ************************ >WK 

868 REM Affichage des Facettes >ZB 

878 REM ************************ >WM 

886 DIK vH3),v2(3),Vn(3),V8cl(3i,P >BH 

t(3,3!,XE(3),YE(3).Bary(3) 

896 Flag=l : Ist=8 >MQ 

988 IF «0=1 THEN INK ULiM+1 ; MODE >MA 

6 ELSE MODE 2 

918 IF Phi>6 AND Phi<=98 THEN Xdeb= >VT 
Xsin : Xfin=Xiax : BOSUB 1358 : BOT 
956 

928 IF Phi>96 AND Phi<=188 THEN Cas >CD 
=1 : Xdeb=Xaax : Xt'in=Xjain ; Pasx=- 
Pasx ; BOSUB 1358 : BOTO 956 
936 IF Phi>186 AND PhK=276 THEN Xd >TX 
eb=Xmax : X-fin=Xmin i Pasx=-F'asx : 
BOSUB 1838 : BOTO 956 
948 Cas=2 : Xdeb=X«in ; Xfin=X«ax : 

BOSUB 1836 
958 PRINT CHR*(7) 
968 IF Mo=2 THEN CflLL &A946.15 
976 Te«P5=!TIME-Tpav)/366 : Heu=Te« 
ps\3686 : Minu=(Teiips\68) MOD 68 : 
Sec=Te»ps MOD 68 

986 A*-INKEY« >PA 

996 IF A$=CHR$<13) THEN PRINT CHR*i >XE 
71 : SPEED WRITE 1 ; SAVE"!%b,K86 
6, 16384 . 

1688 IF A*=" " AND opt=2 THEN INPUT >LT 
"Translation ! ",Deca : Ycent=Ycent 
tDeca : Tpav=TIME : BOTO 898 
1818 IF A*="t" OR A*="T" THEN LQCAT >ZD 
E 6,1 : PRINT Minus "lin "sSecs's" ; 

IF Heu<>6 THEN LOCATE 1,1 : PRINT 
Heu s "h* 

1626 GOTO 986 >FF 

1638 FOR X=Xdeb TO X+"in STEP Pasx >BH 
1848 BOSUB 1768 >YD 

1856 IF Tst=8 THEN 1326 >0T, 



T1666 IF Flag=l THEN 1288 
1676 FOR i=l TO Hail+1 
1688 FOR ,i=l TQ 3 
1898 IF Cas=2 THEN vl(.j!=Y2(i 
,j)-Yl(i,j) ELSE v2(j)=Y2(i,j)-Ylfi 

,i) 

1166 IF iOl THEN Pt,!l,j)=Yl< 

1-1,1) : Ft<2,j)=Ylii,j) s Pt(3,jï= 

Y2ii,ji 

1118 NEXT j 

1126 IF iOl THEN BOSUB 1898 

1136 FOR j=l TO 3 

1146 IF Cas=2 THEN v2(j)=Y2<i 

*l,j)-YHi,j) ELSE vl<j)=Y2U+l,ji- 

YKiJÏ 

1156 Pt(l,.ii=Y2(i,l! 

)=Y2(i+l,j) s Pt(3,j)=Ylii,jî 

1166 NEXT j 

1178 BOSUB 1896 

1188 NEXT i 

1198 BOTO 1328 

1266 FOR i=l TO Nail+1 

1216 FOR j=l TO 3 

1226 IF Cas=2 THEN v2(j!=Yiil 

,j)-Y2(ï,D ELSE vl(j)=Yl(i,j)-Y2(i 

,JI 

IF iOl THEN Pt!l,j!=Yl 
Pt(2,j!=Yl!i,.j) s Pt(3,j) 



Ft(2,i >DL 
) 

>XE 
)BF 
>HF 
>PA 

>PB 
■FB 
F» 



1238 

II-l,j) : 
=Y2(»,j) 

1246 

1258 
1266 
1276 



NEXT i 

IF iOl THEN 60SUB 1896 
FOR j»l TO 3 
IF Cas=2 THEN vl(j)=Ylfl 
,j!-Y2<i+l,.i) ELSE v2(jl=Yl(i,j)-Y2 

(i+l,j) 

1288 Pt(l,i)=Y2(i,j! : Pt(2,j 

i=Y2(i+i,j> s Pt(3,ji=Yl(i,j) 

1296 NEXT j 

1368 BOSUB 1B98 

1316 NEXT i 

1326 Flag=-Flag 

1338 NEXT X 

1348 RETURN 

1356 FOR X=Xdeb TO Xfin STEP Pasx 

1366 GOSUB (788 

1378 IF Tst=6 THEN 1648 

1386 IF Flag-1 THEN 1528 

1396 FOR i=Mail+l TO 1 STEP -1 

1486 FOR j=l TO 3 

1418 IF Cas=l THEN vl(j)=Y2(i 

+i,j)-Yl(i,l> ELSE v2(j)=Y2(i+l,j>- 

YKi.i) 

1428 IF i<> Hail+1 THEN PtU, 

i)=Yl(i+l,i) : Pt(2,ji=Ylii,j) : Pt 

(3,j)=Y2ti+l,j) 

1436 NEXT j 

1446 IF iOMail+1 THEN BOSUB 18 

98 



1458 FOR j=l TO 3 

1466 IF Cas=l THEN v2(j)=Y2(i 

,1)-Yl(i,j) ELSE vl(j)=Y2(i,j!-Ylil 

1478 Pt(l,,ii=Y2(i+l,ji 

,j)=Y2(i,j) s Pt(3,j>=Yl(iJS 

i486 NEXT i 

1496 BOSUB 1898 

1566 NEXT i 

1518 60T0 1646 

1526 FOR i=Mail+l TO 1 STEP 

1536 FOR j=l TO 3 

1546 IF Cas=l THEN v2< jS=Yl(i 

,j)-Y2(i+l,D ELSE vlU)=Yl(j, j)-Y2 

li+l, J) 

1558 IF iOMail+1 THEN Ptll.j 

)=Yl(i+l,i) : Ptt2,j)=Yl(i,j) : Pti 

3,j)=Y2(i+l,li 



>FH 

;RB 



Pti2 >DN 

>XK 
>CA 
>WB 
>PB 
-1 >WC 
>FB 
>XF 



1566 


NEXT j >XJ 


1578 


IF iOMail+1 THEN BOSUB 18 >AF 


98 




15B6 


FOR .1=1 TO 3 >BB 


1598 


IF Cas=i THEN vl',,ii=Yl(i >RF 



,j!-Y2fi,J) ELSE v2iji=Yl(i,j)-Y2ti 

,.i) 

1666 Pt(l,j)«Y2ti+l,j) : Ptiï >DB 

,j)=Y2(i,jl : Pti3,ji=Ylii,ji 

1616 NEXT J >XE 

1628 BOSUB 1898 >BF 

1636 NEXT i >«F 

1648 Flag=-Flag >LJ 

1658 NEXT X >XC 

1666 RETURN >FG 

1676 REM ************************** >QD 

******************* 

1686 REM Sous-programme de rangeme >AE 

nt des coordonnées 

1696 REM ************************** >QF 

******************* 



1796 IF Flag=-1 THEN 1786 


>RX 


1716 FOR i=l TO Mail+1 


>PC 


1726 Yl(i,l)=X 


>TE 


1738 IF Trans=l THEN Yl(i,2)=Y 


>YA 


1746 Yl(i,3)=FN f(Yl(i,l),Yl!i,2) 


>AE 


) 

1756 IF Trans=l THEN BOSUB 2636 


>ZD 


1766 NEXT i 


>VK 


1776 BOTO 1856 


>N8 


1788 FOR 1=1 TO Mai 1+2 


>PL 


1796 Y2(i,l)=X 


>UC 


1B68 IF Trans=l THEN Y2ii,2)=Y 


>YZ 


1818 Y2(i,3)=FN f(Y2(i,l),Y2(i,2) 


,>AF 


) 

1828 IF Trans=l THEN BOSUB 2638 


;>ZB 


1836 NEXT i 


>VH 


1846 Tst=l 


>ffi 


1856 RETURN 


;>fh 


1866 REM ************************** 


>YE 



--12. 



■■K 

************************** 

1670 REM Sous-programme de calcul : 

des couleurs et affichage 

188© REM ************************** 

************************** 

189© FOR j=l TO 3 

1900 Bary(j)=!Pt(l,j>+Pt(2,))+Pti 

3,j)l/3 

191* NEXT i 

1920 Vnii)=vH2)*v2i3)-vli3)*v2t2i 

1930 Vn(2i=vl(3)*v2(l)-ïlil)*v2(3) 

1910 Vni3)=vl(l)*v2(2!-vii2)*v'2(li 

1950 VeciU!=Bary(ti-Xecl 

196» Vecli2)=8ary(2!-Yecl 

1970 Vecl(3!=Bary(3)-Zecl 

196» Prosc=Vn(l)*VeclUi+Vn(2)*Vecl 

(2!+Vn(3!«Vœl(3l 

1990 VrFSflR(Vn<D"2+Vn(2P2+Vn(3>"2 

) 

2000 Vecl=SQR(VeclU!"'2+Vecl(2)'2+V 

ecl(3)"2> 

2010 Cosang=Prosc/(Vn*Vecu 

2020 ang=ATN(SgR(l-Cosang"2)/Cosang 

) 

2030 IF ang<0 THEN ang=ang+PI 

2040 IF lto=l THEN Coul=INT(ang/Fang 

+1.5) : BOTO 2070 

2050 Trame=INT(ang/Fang+0.5) 

2060 CALL &A940, Trame 

2070 X»eii=X 

2080 FOR j=l TO 3 

2098 X=Pt< j,i) : Wii,2i : Z=Pt 

(j,3) 

2100 BOSUB 2430 

2110 XE(,i)=XE*Echx+Xcent : VE i j ) = 

YE*Echy+Ycent 

2120 IF YE(j)>2000 THEN YE(j! 



200 



2130 IF YE(j><-2000 THEN YE!j)=-2 

000 

2140 IF Z>0 AND YE(j)=-2000 THEN 

YE(j!=2000 

2150 NEXT j 

2160 X=Xiem 

2170 IF YE(2)>YE(1! AND YE(2)>YE(3! 

THEN exx=XE(ti : exy»ÏE(l) : XEUi 
=XE(2) ; YEU)=YE(2) : XE(2)=exx : 
YE(2!=exy : GOTO 2190 
2180 IF YE(3)>YE(li AND YE(3)>YE(2) 

THEN exx=XEUI : exy=YEU> : XEfli 
=XE(3) : YE(1)=YE(3) : XE(3)=exx : 
YE(3)=exy 

2190 IF YE(3)>YE(2) THEN exx=XE(2) 
i exy=YE(2! : XEi2)=XE(3) : YE(2)=Y 
E(3) : XE!3>=exx ; YE(3)=exy 
2200 Nxl=XEil!-XEi2) i Nyi=ROUNB!YE : 
(l)-YE(2))+l : Stpl=Nxl/Nyl 
2210 Nx2=XEU)-XE(3! : Ny2=ROUND(YE : 



%■.} 


PS^^^t 


^ZïS&T 




%&>*^ 




■J 


' (1)-YE<3))+1 


: Stp2=Nx2/Ny2 


i 


2220 Nx3=XE(2)-XE(3) : Ny3=R0UND(YE 


>HB 




12)-YEi3))+l : Stp34lx3/Ny3 




;YS 


2230 Cpt2=l 


>tœ 




2240 FOR Cptl»! TO Nyl 


:qe 


>CK 


2250 MOVE XE(l)-Cptl*Stpl,YE(l!-C 


>DU 


>JK 


ptl : DRAN XE(l)-Cpt2*Stp2,YE(l)-Cp 
tl.Coul 




>VH 


2260 Cpt2=Cpt2+l 


>LB 


:>AA 


2270 NEXT Cptl 


>XC 


>AA 


2280 FOR Cptl-2 TO Ny3 


>q« 


jAA 


2290 MOVE XE(2)-CptHStp3,YE(21-C 


;>dd 


>UB 


Ptl : DRAM XE(l!-Cpt2*Stp2,YE(2)-Cp 




>UF 


tl.Coul 




>ffi 


2300 Cpt2=Cpt2+l 


>Lti 


>YW 


2310 NEXT Cptl 


>m 




2320 IF BordtOV AND Bord*<>"0" T 


>JM 


>FE 


HEN 2380 






2330 CALL S,A940,15 


>LA- 


;>PE 


2340 MOVE XE(1),YE(1) 


>PB 




2350 DRAW XE(2i,YE(2l 


>PV 


>XD 


2360 DRAW XE(3),YE(3) 


>PY 


)6R 


2370 DRAW XElli.YE(l) 


>PV 




2380 RETURN 


>FG 


>XT 


2390 REM ************************** 


>YD 


>VE 


************************** 






2400 REM Sous-programme de calcul 


>YK 


>xx. 


des coordonnées a l'écran 




>PN; 


2410 REM ************************** 


m 


;DC 


M************************ 




>CB 


2420 Z=FN f(X,Y) 


>HC 


>E0 


2430 d=X*cp*ct+Y*sp*ct+Z*st-Ray 


>BY 




2440 XE=(X*sp-Y*cp)/d 


>0N 


>ÏC 


2450 YE=(X*cp*st+Y*sp*st-Z*ct)/d 


>CB 


>TJ 


2460 IF Trans=l THEN BOSUB 2630 


>YN 




2470 RETURN 


>F6 


>AC 


2480 REM ********************** 


>vu 




2490 REM Génération de trames 


>YH 


>rx 


2500 REM ********************** 


>VL 




2510 POKE WDE9,ic0:POKE &BDEA.&A9 


;AB 


>JB 


\2520 AD=SiA900 


,>EH 




2530 READ A$:A=VAL('*'*A*!:POKE AB+ 


>GD 


>VE 


N,A:N=N+1:IF AOiC THEN 2530 




>DC 


'2540 AD=M940:N=0 


>LE 


>VX 


2550 READ A$:A=VAL<"&"+A*):POKE AD+ 
N,A:N=N+1:IF A0M)9 THEN 255» 


>HD 




2560 flD=4AAW:FOR N=0 TO 15: FOR 1=0 


>EP 




TO 7 




>CF 


2570 READ A:POK£ AD+N*B+I,A:NEXT I, 

H 

2580 CALL &A940, 15 


>DX 




>LH 




2590 RETURN 


>FK 


>C8 


2600 REM *#)HHHHHHHHHHHHHI*#*#**#* 


m 




2610 REM Restitution des X et Y 


>ZE 




2620 REM ************************ 


>m 


/HP 


263» X=X«em : Y=Ymem 


>PT 




2640 Trans=0 


>JJ 


,>HYi 


l2650 RETURN 




>FB 



2660 REM ************************** >KM 

************* 

2670 REM Dépassements de capacité >TR 

arithmétique 

2680 REM *********************iti*** >KP 

************* 

2690 XmeiFX : Yme«=Y >PZ 

2700 IF ERR=6 OR ERR=li THEN X=-X+MA >RB 

X(ABS(Xmin),ABS(Xuax))/'20t»0 : Y=Y+ 

MAX(ABS(Yi»in),AB5(Ymax))/2000» 

2710 Trans=l >JH 

2720 IF ERL=2420 THEN RESUME 2420 ,'ZP 

2730 IF ERL=1740 THEN RESUME 1720 >ZX 

274» IF ERL=181» THEN RESUME 179» )ZD 

2750 REM ************************** >HK 

*********** 

2760 REM Datas pour la génération >NC 

des trames 

2770 REM ************************** >HM 

*********** 

278» DATA E5,D5,11,0,C0,ED,52,7C,CB >ZQ 

, 3F, CB,3F,CB,3F,li, 0,0,5F, DD,E5,BD, 

21,27 

279» DATS.A9,DB,19,D»,56,«,7S,A?,47 >YD 

,DD,E1,D1,E1,C3,68,C 

2800 DATA FE,1,C0,DD,7E >QR 

2816 DATA «,FE,i0,D0,CB,27,CB,27,CB >UL 

,27,21,0,AA, 11,0,0,5F, 19,11, 27, A9,l 

■ 8 

2820 DATA 0,ED,B0,C9 >NP 

2830 DATA 0,0,0,0,0,0,0,0 >BX 

284» DATA 0,64,0,8,0,64,0,8 >TB 

2850 DATA 8,128,4,64,2,32,128,8 >XK 

2860 DATA 0,34,0,136,0,34,0,136 >WT 

2870 DATA 132,32,132,32,132,32,132, >BZ 

32 

2880 DATA 136,34,136,34,136,34,136, >CT 
34 

2890 DATA 146,73,146,73,146,73,146, >CL 
73 

2900 DATA 170,85,170,85,170,85,170, >CC 
85 

291» DATA 170,85,170,85,170,85,17», >CD 
85 

2920 DATA 109,182,109,182,109,182,1 >FJ 
09, 182 

2930 DATA 119,221,119,221,119,221,1 >FN 
19,221 ' 

2940 DATA 123,223, 123,223, 123,223, 1 >FB 
23,223 

295» DATA 255,221,255,119,255,221,2 >FH 
55,119 

2960 DATA 247,127,251,191,253,239,1 >FU 
27,247 

2970 DATA 255,191,255,247,255,191,2 >FC 
55,247 

2980 DATA 255,255,255,255,255,255,2 >FD 
,55,255» 



U.T.|«L.|«T-A«I«R.E 



PRET 




Avant de vous lancer 
dans de folles 
dépenses et de vous 
approprier l'objet 
convoité, livrez-vous à 
ce petit exercice : 
tapez le listing suivant 
et choisissez l'option 
du menu qui vous 
convient parmi la 
recherche sur prêt, la 
valeur acquise et la 
valeur actuelle. De 
quoi vous décourager 
ou bien vous inciter à 
vous offrir une 
nouvelle voiture (par 
exemple). 



• Didier 
RUYFFELAERT 




1 ' PROGRAMMATION FAITE PAR DIDIER >FA 

RUYFFELAERT SUR AHSTRAD CPC 4128 «0 

N0CHR0NE 

10 'm************************ PRE >LA 

T . BANQUE **#****##*****»**#***#** 

20 MODE 2 >BF 

30 LOCATE 19, 4l PRINT" i- Prêt" >ZA 

40 LOCATE 10,4:PRINT"* recherche 5 >VU 
ur prêt " 

58 LOCATE 11,7:PRINT'- 2 - capital" >FC 



48 LOCATE 11, 8: PRINT"- 



■ durée" 



CN 



78 LOCATE 11,9:PRINT"- 4 - tau* ann >LD 

uel" 

88 LOCATE iô, 11: PRINT"» valeur acq >PH 

uise" 

98 LOCATE 11, 12SPRINT"- 5 - capital >6N 

100 LOCATE 11,13:PRINT"- 6 - suite >BN 

de versements" 

lie LOCATE 18, 15! PRINT"* valeur ac >RM 

tuelle" 

120 LOCATE tl,l6:PRINT"- 7 - capita >HV 

1" 

130 LOCATE 11, 17: PRINT"- 8 - suite >BF 




de versements" 

148 LOCATE 50,20:LINE INPUT "choix 

:";a$ 

159 IF (ML (a$) < 1 OR VAL (a») > B 
THEN 148 

160 IF a* = 
178 IF a* = 
188 IF a* = 
198. IF a* = 
200 IF a* = 
218 IF al = 
228 IF a* = 
238 IF a* = 



THEN 2328 
THEN 248 
THEN 768 
THEN 1388 
THEN 1988 
THEN 4468 
THEN 2118 
THEN 4928 



ZPH 
/NN 
>NY 
>PL 
>PK 
>PR 
>PH 
>Ps 

248 ****************************** >RG 
** P CAPITAL ********************** 
***** 

258 MODE 2 >H6 

268 LOCATE 32,2:PRINT"RECHERCHE CAP ,'LB 
ITAL" 

278 LOCATE 16,6 >ïD 

288 PRINT'BUREE DU PRET (en année) >M 



298 LOCATE lé,B:PRINT"REBBOURSEMENT 

S (miensuei 

308 LOCATE 25,9 

318 PRINT"(t)riffle5triel " 

320 LOCATE 25,10 

330 PRINT" (s)enestriel " 

348 LOCATE 25, Il 

358 PRINT" (a)nnuel" 

368 LOCATE 10,13 

378 PRINF'TAUX ANNUEL ;" 

3B8 LOCATE 18,15 

398 PRINT"selon banque, méthode de 



■m 



calcul du taux a retenir " 
408 LOCATE 25,18 
418 PRINT"2- intérêts composes" 
428 LOCATE 25,17 
438 PRINT"1- intérêts simples" 
440 LOCATE 10,21 
458 PRINT"REHBOURSEI€NT SOUHAITE : 



•ZD 
•EF 
•W 
•EJ 
>RN 
■ES 
>VH 
>FA 
>CF 

;FC 
>H5 
>FD 
>BE 

>EE 



570 LOCATE 23, 13: INPUT taux 

5B8 IF taux < 8 OR taux > 108 THEN 

570 
598 LOCATE 4B, 19 
600 LINE INPUT "choix :":a* 
618 IF a* = "1" OR a$ = "2" THEN 6 
28 ELSE 590 

620 IF a* = "1" THEN t = Itaux ; d 
u) / 188 ELSE t = <( 1 ♦ (taux/100) 
! " (1/du) i " 1 
630 LOCATE 34.21 
648 INPUT loyer 
658 IF loyer <= 8 THEN 638 
668 capital = (i/(t/!t-(i+t!'-d)ï)* 
lover 
678 LOCATE 27,23:PRINT"CAPITAL FIXE 

A :";:PR1NT USIN6"#*##t#.##":capit 
al 

688 LOCATE 29,25 
690 PRINT "(s)uite - (i)mprimante " 



780 q* = INKEY* >TJ 

710 IF q*= "s" OR qj~"l" THEN 720 ,>FZ 
ELSE 788 

720 IF qs="s" THEN RUN >QB 

738 li = 1 >ZC 

748 SOSUB 4990 /RE 

750 60T0 700 >ZF 

768 '#***************************** ;TD 
R DUREE ************************** 



770 MODE 2 

789 LOCATE 32,2:PRINT"RECHERCHE DUR 
EE" 

790 LOCATE 10.6 

800 PRINF'CAPITAL EMPRUNTE : " 
B10 LOCATE 10,8:PRINT"REMBOURSEMENT 
S (ntiensuel " 
820 LOCATE 25,9 



468 LOCATE 37, 6: INPUT durée M 
478 IF durée <= THEN 460 >RY 
488 LOCATE 37,12:LINE INPUT "choix ZKY 

:"ia* 

498 IF a*=V OR a* = "t" OR a* = >B¥ 
"s" OR ai = "a" THEN 508 ELSE 4B0 
580 IF a* = "a" THEN 518 ELSE 520 >WY 
510 d = durée * 12 : du = 12: 60T0 >ZH 

578 

528 IF a$ = "t" THEN 538 ELSE 548 >XD 
538 d = durée * 4 : du = 4: GOTO 5 >XA 
70 

548 IF a» = "s" THEN 558 ELSE 568 >XJ 
558 d = durée * 2 : du « 2: 60T0 5 >XY 
70 
560 d = durée : du = i >MK 



83s 



850 
860 



898 

900 

910 



PRINT* (t)rimestnel " 

LOCATE 25, 10 

PRINT" (si emestriel " 

LOCATE 25,11 

PRINT"(a)nnuel" 

LOCATE 10,13 

PRINPTAUX ANNUEL :" 

LOCATE 18.15 

PRINT"seion banque, méthode de 



calcul du taux a retenir " 
928 LOCATE 25,18 
938 PRINT"2- intérêts composes" 
940 LOCATE 25,17 
950 PRINT"!- intérêts simples" 
968 LOCATE 18,21 
970 PRINF'REHBOURSEHENT EFFECTUE 



988 LOCATE 28,6: INPUT capital 
998 IF capital <> THEN 9B0 



>*• 1008 LOCATE 37, 12:LINE INPUT "choi >LV 
>BN x :";a$ 

1810 IF a*="«" OR a» = "t" OR a* = ;EH 
>GJ "s" OR a* = "a" THEN 1020 ELSE 100 
>XF 
•EN 1820 IF a» = "m" THEN 1038 ELSE 10 >ZC 

40 
;UE 1030 du = 12: GOTO 1898 >PH 

1040 IF a» = "t" THEN 1850 ELSE 10 >ZR 

60 
;FB 1050 du = 4; GOTO 1898 >ND 

>LK 1868 IF a* = "s" THEN 1078 ELSE 18 ;>ZX 
>RM 80 
>SP 1078 du = 2: GOTO 1090 >ND 

1088 du = 1 ,'EH 

>ZJ 1090 LOCATE 23, 13: INPUT taux >XH 

1100 IF taux < OR taux > 100 THEN >CT 
1090 
>FD 1110 LOCATE 48,19 >LG 

)JG 1120 LINE INPUT "choix :";a$ >YB 

1130 IF a$ = "1" OR a$ = "2" THEN 1 >GR 

148 ELSE 1118 

1140 IF a* = "1" THEN t = itaux ,' d >UJ 

u) / 100 ELSE t = <( 1 + (taux/100) 

! " (S/du) i - 1 

1150 LOCATE 34,21 >LY 

1160 INPUT loyer >HR 

1170 IF loyer <= THEN 1150 >U6 

1180 durée = 1 -(( t * capital) / I ZDV 

oyer î 

1190 IF durée ■■■= THEN RUN >UE 
>JD 1200 durée = LOG (durée!/ LOG (1 + >AD 
>HF t) 

1210 LOCATE 27,23:FRINT"0UREE FIXEE >XP 
>ZA A :";:PRINT USIN6"M#*#*.## ,, :-dure 
)AE e 
/BK 1220 LOCATE 29,25 /LE 

1230 PRINT "(s)uite - (î)mprimante >KC 
>YD " 

>ZL 1248 q$ = INKEY* >ZA 

>FC 1250 IF q*= "s" OR q$="i" THEN 1260 >HH 
>YC ELSE 1240 

>FF 1260 IF q*="s" THEN RUN >QN 
>RD 1278 H = 1 >EE 

:>FD 12B8 GOSUB 4990 >YF 

ZVQ 1298 60T0 1240 >MG 

>EJ 1380 '***************************** >X6 
/CD * R . TAUX ************************ 

** 
>FK 1310 «ODE 2 /PB 

/HE 1320 LOCATE 32,2:PRINT"RECHERCHE TA >HQ 
ZGA UX" 

m 1330 LOCATE 10,6 >DD 

>FB 1340 PRINT"DUREE DU PRET (en année! >KC 
/GL : « 

1358 LOCATE 10,8:PRINT"REMBOURSEMEN >CH 
>YC TS (m)ensuel 
>UW 1360 LOCATE 25,9 /EF 



-■■.■■■■:.■.'■ 



137* PRINT" St)rimestrisl " 


>AJ 


1380 LOCATE 25, 10 


>LB 


1390 PRINT" (sieaestnel " 


>ZA 


i486 LOCATE 25,11 


>LV 


1418 PRINT" (a)nnuel" 


>RA 


1428 LOCATE 18, 13 


>LT 


1438 PRINTWITAL EMPRUNTE ;" 


JflN 


1448 LOCATE 18, 15 


>LX 


1458 PRINT"3eion banque, méthode de 


/DB 


calcul du taux a retenir " 




1460 LOCATE 25, 18 


>LJ 


1478 PRINT"2- intérêts composes" 


>JC 


1488 LOCATE 25,17 . 


>LK 


1498 PRINT"!- intérêts simples" 


:>8U 



1508 LOCATE 18,21 >L0 

1510 PRINT"REHBOURSEMENT EFFECTUE : >HH 

1528 LOCATE 37.6: INPUT durée >XV 
1530 IF durée <= THEN 1520 >UJ 
1540 LOCATE 37,12:LINE INPUT "chois M 
:";â* 

1550 IF a$=V OR a* = "t" OR a* = €K 
"s" OR a* = "a" THEN 1568 ELSE 1540 

1560 IF al = "m" THEN 1570 ELSE 150 >2F 
8 

1570 d = durée « 12 : du = 12: 60T0 >A6 
1638 
1580 IF a$ = "t" THEN 1590 ELSE 160 >ZK 


1590 d = durée * 4 : du = 4: SOTQ 1 >ZN 
630 



1668 IF a* = "s" THtN 1610 ELSE 162 


>ZN 


1610 d = durée « 2 : du = 2: BOTO 1 


>ZB 


630 




1620 d = durée : du = 1 


>NF 


1638 LOCATE 28. 13: INPUT capital 


>AR 


1648 IF capital '.- 8 THtN 1638 


,'HH 


1650 LOCATE 46,19 


>LR 


1668 LINE INPUT "choix :";a* 


>YL 


1670 IF a* = "1" OR a* = "2" THEN 1 


>SB 


6B8 ELSE 1650 




1688 LOCATE 34,21 


>L» 


1690 INPUT loyer 


m 


1706 IF loyer ',- 8 THEN 1688 


:>UP 


1718 IF (loyer * d! •= capital THEN 


.>EM 


RUN 




1728 ta = loyer 7 capital 


)TK 


1730 ta = CINT (ta » 10000! 


>RF 


1740 taux = 26 


>KD 


1750 IF s* = "1" THEN t = (taux / d 


>UR 


ul / 100 ELSE t = (( 1 ♦ (taux/100) 




! " il/du) ! - 1 




1760 1 = i t / ( 1 - (l+t)'-d)) 


;RL 


1770 1 = CINT (1 * 10800! 


;>PU 



! 1780 IF I = ta THEN 1810 >PD 

1798 IF 1 > ta THEN taux = taux * >YX 
.75 ELSE taux = taux » 1.5 

1800 60T0 1758 >MK 

1818 LOCATE 27,23:PRINT"TAUX ANNUEL >DL 
FIXE ft :";:PRINT USINS"######.I##" 
: taux 

1828 LOCATE 29,25 >ll 

1836 PRINT "(s)uite - uSmprimante >KJ 

1846 q$ = INKEV* >Z8 

1850 IF q>= "5" OR: q*="i" THEN 1860 >HS 
ELSE 1846 

1860 IF ql="s" THEN RUN >QV 

1B70 li =1 > C A 

1888 GOSUB 4990 >ZB 

1890 BOTO 1B40 >NJ 

1906 'a**************************** >ïC 

* V . ACQUISE C ******************* 
#* 

1910 HOUE 2 >0C 

1920 LOCATE 25,2:PRINT"VALEUR ACQU >CT 

ISE PAR UN CAPITAL" 

1938 LOCATE 16,5:PRINT"duree (en mo ;PC 

is) :" 

1948 LOCATE 16, 16:PRINT"capital p" /Fr, 

1958 LOCATE 16, 15:PRINT"taux annuel >LS 

1968 LOCATE 27,5: INPUT durée ,>XB 

1978 LOCATE 21, 10: INPUT capital >AN 

1980 LOCATE 23. 15: INPUT taux >X« 
1996 taux = (1 + (taux / 100))"ii/l- >AF 

2866 t = tauï'duree >NF 

2616 va = capital * t >NP 

2020 LOCATE W, 1 8: FR INT "VALEUR ACOU >VJ 
ISE :"::PRINT USIN6"####t#t.#t"sva 

2030 LOCATE 29,25 >LE 

2846 PRINT "(s)uite - (imprimante >KC 

2050 q* = INKEV* >ZA 

2060 IF q*= "s" OR q*="i" THEN 2076 >HM 
ELSE 2050 

2070 IF q*="s" THEN RUN >0N 

2080 li = 1 >EE 

2090 GOSUB 4990 >YF 

2160 GOTO 2050 >LH 

2110 '****************************# >XG 

* v . ACTUELLE CAPITAL ************ 
** 

2128 HOBE 2 , >P6 

2130 LOCATE 25,2:PRINT"VALEUR ACTU :>AD 

ELLE D'UN CAPITAL" 

2140 LOCATE 10,5:PRINT"duree (en mo >PH 

is! :" 

2150 LOCATE 10, 10;PRINT"capital :" >FD 

2160 LOCATE 18, 15:PRINT"taux annuel >LA 



2178 LOCATE 27,5: INPUT durée 

2180 LOCATE 21, 18: INPUT capital 

2190 LOCATE 23, 15: INPUT taux 

2280 taux = il + (taux 7 i80))"(l/l 

2) 

2216 t = taux'-duree 

2228 va = capital t t 

2230 LOCATE 40,1B:PRINT"VALEUR ACTU 

ELLE :":: PRINT USING"#######.##":va 



2240 LOCATE 29,25 

2250 PRINT "isiuite - !l! 



rimante 



;lH 
>KF 



2260 q* = INKEV* 

2270 IF q*= "s" OR q*="i" THEN 2286 
ELSE 2260 

22B0 IF q*="s" THEN RUN 
2290 li = 1 
2306 GOSUB 4996 
2318 BOTO 2266 

2320 ' ***************************** 
* PRET *************************** 
2330 MODE 2 

2340 LOCATE 38,2:PRINT"PRET" 
2350 LOCATE 10,4 
2360 PRINT'TOREE DU PRET :" 
2370 LOCATE 10,6 
2380 PRINFREMBOURSENENTS «iensuel 

2398 LOCATE 25,7 
2480 FRINT'Stlnmestriel " 
2410 LOCATE 25,8 
2420 PRINT" (siemestriel " 
2430 LOCATE 25,9 
2440 PRINT" (a)nnuel 
2450 LOCATE 16,11 
2460 PRINT-TAUX ANNUEL :" 
2476 LOCATE 18, 13 

2480 PRINT'selon banque, méthode de 
calcul du taux a retenir " 
2490 LOCATE 25, 16 
2560 PRINT"2- intérêts composes" 
2510 LOCATE 25, 15 
2520 PRINT"!- intérêts simples" 



>DE 

iXP 
>DJ 

>NB 

>EH 

;>ad 
:>EB 
>ZV 
>EE 
>UB 
ÎLV 
>VR 
>LZ 



2530 LOCATE 10,19 >LC 

2546 PRINT'CAPITAL EMPRUNTE :" >AR 

2550 LOCATE 10,21 >LX 

2560 PRINT"MONTANT ASSURANCE EN I ( >ZA 
c.a = 0.54 t ! ;" 

2570 ' >¥6 



2588 LOCATE 26, 4: INPUT durée >Xl 
2590 LOCATE 37,10:LINE INPUT "choix >K6 
:";a* 
2600 IF a*="m" OR a* = "t" OR a* = >EK 



rl6< 



■>.-■ .-' .:■;■:- 



2610 IF a* = "m" THEN 2420 ELSE 243 
2620 d - durée * 12 : du = 12: ec = 


>ZN 


>6H 


1 : GOTO 2680 




2630 IF a* = "t" THEN 2640 ELSE 265 
2640 d = durée * 4 : du = 4; ec = 3 


;ZK 


>EP 


: GOTO 2680 




2650 IF a* = "5" THEN 2660 ELSE 267 

e 

2640 d = durée » 2 : du = 2: ec = 4 


>ZQ 


>E0 


: GOTO 2680 




2670 d = durée : du = 1 : ec = 12 


>uu 


2680 LOCATE 23,11:INPUT taux 


>JP 


2690 IF taux < OR taux > 100 THEN 


>DB 


26» 




2780 LOCATE 48, 17 


>LL 


2710 LINE INPUT "chois :";al 


)VH 


2720 IF a$ = "1" OR a* = "2" THEN 2 


>BL 


730 ELSE 2700 




2730 IF a* = "1" THEN t = (tau* / d 


>UQ 



"s" OR a* = "a" THEN 2610 ELSE 2590 1 2960 PRINT #l,USIN6"#####";ii 



2970 PRINT #7,USINS"»r;cpteur;:PRI 

NT #7,"."( 

2980 PRINT t7,USINS"«i";annee 

2990 PRINT #2,UBIN6"*#»*##.»#";capi 

tal 

3000 intérêt = capital » t 

3010 PRINT #3,USINB"#*##t».tr;inte 

ret 

3020 inte = inte + intérêt 

3030 inter = inter + intérêt 

3040 amort = loyer - intérêt 

3050 amorti = amorti + amort 

3060 PRINT #4,USIN6"#**#t».*#"iamor 

t 

3070 PRINT #5,USING "»###»*.##"; loy 

er 

3080 as = ((capital ♦ assur)/100)/d 

u 

3090 PRINT #6,USINS "*##t##.t#";a5 

3100 ass ~ ass + as 
3110 assu = assu + as 
3120 capital = capital - amort 
3130 cpteur = cpteur + ec: compteur 
= compteur + 1 

3140 IF compteur = 25 THEN SOSUB 42 
10 ELSE 3160 
3150 SOSUB 3930 
3160 IF du = 1 THEN 3610 
3170 IF cpteur > 12 THEN 3180 ELSE 
3610 

3180 cpteur = cpteur - 12: année = 
année + 1 

3190 IF année > 99 THEN année = 1 
3200 PRINT 11, 
3210 PRINT #2,"' 
3220 PRINT #3, 
3230 PRINT #4,'" 
3240 PRINT 15, 
3250 PRINT #6, 
3260 PRINT 17, 
3270 compteur : 
3280 IF compteur 
10 ELSE 3380 
3290 SOSUB 3930 
3300 PRINT #1,"" 
3310 PRINT #2,"" 
3320 PRINT *3,"" 
3330 PRINT #4,"" 

3349 PRINT #5," 

3350 PRINT #6,"" 
3360 PRINT #7,"" 

3370 compteur = compteur + 1 

3380 PRINT #1,"". 

3390 PRINT #2,"" 

3400 PRINT #3,USIN6 "#t*#l*.*#";int 



u) / 100 ELSE t = il 1 + (taux/400) 
) '■ il /du) i - 1 
2740 LOCATE 28, 19: INPUT capital 
2750 IF capital < THEN 2740 
2760 LOCATE 51,21: INPUT assur 
2770 IF assur < THEN 2760 
2780 LOCATE 10,23 

2790 INPUT "MOIS, ANNEE DE DEPART D 
ES REMBOURSEMENTS :"idepart 
2800 IF départ < 1 OR départ > 12 T 
HEN départ = 1 
2B10 LOCATE 58,23 
2820 INPUT année 

2830 IF année < 1 OR année ) 99 THE 
H année = 1 

2840 LOCATE 29,25:PRINT. "(s)uite - 
(iimprimante " 
2850 qt = INKEYt 

2860 IF n$= "s" OR qt="i" THEN 2870 
ELSE 2850 

2870 IF q*="s" THEN 2900 
2880 li = 1 
2890 BOSUB 4990 
2900 



it 



( 1 - (l+t»'-d)) >FS 



2910 loyer 

* capital 

2920 SOSUB 3930 

2930 cpteur = départ: inte = 0;ass= 

0:as = 0:compteur = 4 
2940 inter = : amorti = îassu = 


2950 FOR il = i TO d 



>YA 
>VF 

;>AG 

>LRi' 



: compteur + 1 

■■ 25 THEN SOSUB 41 



3410 inte = >VH 

3420 PRINT #4, "" >ZH 

3430 PRINT 15,"" 'M 

3440 PRINT #6, USINE "»#!###. ##": ass >BB 



3450 PRINT #7,"" 






>AD 


3440 ass= 






>PB 


3470 compteur = 


compteur + 1 




>WB 


3480 IF compteur 


= 25 THEN GOSUB 42 >H8 


10 ELSE 3510 








3490 SOSUB 3930 






JïD 


3500 BOTO 3610 






)MF 


3510 PRINT #1,"' 






>ZE 


3520 PRÎNT »2,"' 






?zs 


3530 PRINT #3,"' 






JZJ 


3540 PRINT *4,'" 






>AA 


3550 PRINT #5,"' 






>AC 


3560 PRINT #6,'" 






>AE 


3570 PRINT #7,'" 






>AB 


3580 compteur = 


compteur + 1 




>m 


3590 IF compteui 


= 25 THEN SOSUB 42 


>m 


10 ELSE 3610 








3600 BOSUB 3930 






m 


3610 NEXT ii 






>EA 


3620 PRINT #3,"' 






?ZJ 


3630 PRINT #4,'." 






;AA 


3640 PRINT #5, " 






>AC 


3450 PRINT *4,"' 






:»ae 


3640 PRINT 17, " 






>AG 


3670 compteur = 


compteur + 1 




>m 


3680 IF compteur 


= 25 THEN GOSUB 42 


>MU 


10 ELSE 3700 








3690 SOSUB 3930 






>VF 


3700 PRINT #1," 






>ZF 


3710 PRINT 12," 






>ZH 


3720 PRINT I3,USIN6 "##tt*#.#t" 


int 


;>cj 


3730 PRINT M, " 






>AB 


3740 PRINT K, " 






>ad 


3750 PRINT #6,USING "»#tt#t.##" 


ass 


«F 



3760 PRINT 17,"" >AH 

3770 compteur - compteur + 1 >WE 
37B0 IF compteur = 25 THEN GOSUB 42 >MH 
10 ELSE 3800 

3790 BOSUB 3930 >¥G 

3800 FOR i = 1 TO 2 >CK 

3810 PRINT #<i),"" >LM 

3820 NEXT i >VJ 

3830 FOR i = 3 TO 5 >BH 

3840 PRINT *(i)," " )TD 

3850 NEXT i . M 

3855 PRINT 1(4!/ " >TL 

3860 PRINT #7,'"' >AJ 

3870 PRINT #3,USIN6 "*##*»#.#»"; int >DL 
er 
i 3880 PRINT #4, USINE "#*tMttt.*#";amo >EB 



V17« 






rti 

3890 PRINT #5,USINS "###'###.##"; loy >FP 

er * d 

39» PRINT #6,USINB "######,##";a5s >CA 

u 

3?» BOSUB 4216 MC 

3920 RUN >CC 

3930 '***************************** >YH 

*********************************** 

** 

3949 MODE 2 JÛC 

3959 LOCATE 2,1 ,'XF 

3966 PRINT STRING*j7B.". ") >UH 

3970 LOCflTE 5,2 >YB 

3980 PRINT "N~ DATE CAPITAL >BV 

INTERETS AMORTISSEMENT REMBDUR 
SEMENT ASSURANCE" 

3998 LOCATE 2,3 >VB 

4000 PRINT STRIN6*(78,","i ;UT 
4016 HINDOU #1,2,7,4,24 >QB 



4020 HINDOU #2,19,28,4,24 


>TF 


4930 HINDOU 13,31,42,4,24 


>RF 


404* HINDOU #4,45,56,4,24 


m 


4050 HINDOU #5,59,68,4,24 


>TU 


4860 HINDOU #6,69,79,4,24 


>TB 


4070 HINDOU #7,9,16,4,24 


,'RR 


4660 RETURN 


>FF 


4090 


>VF 


4100 FOR i = 2 TQ compteur-i 


;>ve 


4110 LOCATE 2,i : PRINT"!"; 


m 


4120 LOCATE 3,1 : PRINT"!"', 


,'UJ 


4130 LOCATE 15,1 : PRINT"' 1 ': 


>VE 


4140 LOCATE 29,1 : PRINT":"; 


>VL 


4158 LOCATE 41, i : PRINT":": 


>VF 


4168 LOCATE 55,1 : PRINT"!"; 


m 


4170 LOCATE 69, i : PRINT"!"; 


m 


4180 LOCATE 79, I : PRINT"!"; 


m 


4190 NEXT 


;lf 


4209 RETURN 


>EK 


4210 ***************************** 


>XK 


*********************************** 




4220 SOSUB 4100 


>HF 


4230 compteur = 4 


>LK 


4240 LOCATE 22,25 


;>LC 


4250 PRINT "(s)uite - (î)mprimante 


>FU 


- avec (e in te te" 




4260 q* = INKEY* 


;ZF 


4270 IF qS= "5" OR q*="i" OR q* -"s 


>UL 


• THEN 42B0 ELSE 4260 




42B0 IF q*="s" THEN RETURN 


>UE 


4290 IF q$ = "e" THEN II = 1 ELSE 

li = 4 

4300 IF q* = "i" THEN 4330 


>AQ 


>œ 


4310 PRINT», " LE PRESENT ECHEANCIE 


>JF 


R N'A DE VALEUR QUE POUR SA VALEUR 





I I 

INDICATIVE; EN AUCUN" 

4320 PRINT#B," CAS LE PORTEUR NE PO 

URRA S'EN PREVALOIR." 

4330 q$="" 

4340 ligne = li 

4350 FOR col = 1 TO 80 

4360 LOCATE col, ligne 

4370 b*= COPYCHR*(#0t 

4380 q*= q* + b* 

4390 NEXT coi 

4400 IF q* = STRINS*(B0," ") THEN 4 

450 

4410 PRINT #8,q* 

4420 q* = "" 

4430 ligne = ligne * i 

4440 IF ligne > 24 THEN 4450 ELSE 4 

350 

4450 BOTO 4260 

4460 '***************************** 

* V ACQUISE SUITE **************** 

**** 

4470 «ODE 2 

4480 LOCATE 20,2:PRINT"VALEUR ACQUI 

SE PAR UNE SUITE DE VERSEMENTS" 

4490 BOSUB 4510 

4500 GOTO 4820 

4510 LOCATE 10,6 

4520 PRINT"NOMBRE DE VERSEMENTS : " 



4530 LOCATE 10,8 >EA 

4540 PRINT "VERSEMENTS (ffwensuei /IP 

4550 LOCATE 21,9 >EF 

4560 PRINT" (tirmestriel " 'AN 

4570 LOCATE 21,10 >LB 

4580 PRINT" islemestriel " >ZE 

4590 LOCATE 21,11 >LE 

4600 PRINT "(ai nnuel " .« 

4610 LOCATE 10,15 >LZ 

4620 PRINF'TAUX ANNUEL : " >VR 

4630 LOCATE 10,18 >LE 
4648 PRINPMDNTANT DES VERSEMENTS ; >HJ 

4650 LOCATE 32,6;INPUT durée >XX 
4660 LOCATE 37,12:LINE INPUT "choix /LA 
:";a$ 

4670 IF 3*="»" OR a* = "t" OR a* = >EE 
"5" OR a$ = "a" THEN 46B0 ELSE 4660 

46B0 IF a* = "m" THEN 4690 ELSE 470 >2Q 


4690 d = durée * 12 : du = 12: BOTO >BL 
4750 

4700 IF a$ = "t" THEN 4710 ELSE 472 >ZK 


4710 d = durée * 4 : du = 4: BOTO 4 >ZR 
750 
4720 IF a» = "s" THEN 4730 ELSE 474 >ZP 



473» d = durée * 2 : du = 2: GOTO 4 >ZP 

750 

4740 d = durée : du = 1 >NH 

4750 LOCATE 23, 15: INPUT taux >XU 

4760 IF taus < OR taux > 100 THEN >DB 

4750 

4770 LOCATE 34,18 >LR 

4780 INPUT capital >NH 

4790 IF capital < THEN 4770 >V8 

4800 t= il 1 + (taux/100)! "■ il/du) >AB 
! - 1 

4810 RETURN >FB 

4820 loyer = ((((l+t)"duree)-ii/ti* >KV 

capital 

4830 LOCATE 40,20:PRINT"VALEUR ACQU )7A 
ISE :";;PRINT USING"t##t##t.##"; loy 
er 

48 > 40 LOCATE 29,25 >LR 

4850 PRINT "(siuite - (i)mpriffiante >KF 

4860 q* = INKEY* >AB 

4870 IF q*= "5" OR q*="i" THEN 4880 >HY 
ELSE 4860 

4880 IF q$=V THEN RUN ;flA 

4890 11 = 1 >FF 

4900 BOSUB 4990 >¥H 

4910 GOTO 4660 >NK 

4920 ***************************** >YH 

* V ACTUELLE SUITE **************** 
**** 

4930 MODE 2 >0C 

4940 LOCATE 20, 2: PRINT "VALEUR ACTUE >UL 

LLE D'UNE SUITE DE VERSEMENTS" 

4950 SOSUB 4510 /VA 

4960 loyer - (il - ((l+U'-dureei) >MC 

/ t ) * capital 

4970 LOCATE 40,20;PRWT"VALEUR ACTU >BQ 

ELLE :";:PR1NI USIN6"#»#tttÈ»«.##";io 

ver 

4980 GOTO 4840 >PE 

4990 ***************************** >ZE 

* imprimante ********************** 
***** 

5000 q*="" >DB 

5010 FOR ligne = li TO 24 >RH 

5020 FOR coî = 1 TO 80 >ND 

5030 LOCATE col, ligne >QV 

5040 b*= COPYCHR»(t0! -f'U 

5050 q$= q* + b$ >EJ 

5060 NEXT col >PA 

5070 PRINT #8,q$ >FD 

5080 q* = "" >EB 

5090 NEXT ligne >HH 

5100 RETURN >EK 
5110 '***************************** >XK 
*********************************** 
! ****• 
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RESISTOR 




RESISTOR est un 
programme destiné 
à calculer la valeur 
des résistances les 
plus courantes sur 
le marché : les 
résistances aux 3 
bagues dont la 
valeur se calcule par 
le célèbre code des 
couleurs. 

•Emmanuel GUILLARD 



Pour les électroniciens en herbe, un 
petit cours est inclus dans le 
programme, afin qu'ils comprennent 
à quoi sert une résistance et la façon 
de calculer sa valeur. 
Une notice y est comprise. Comme elle 
est un peu succincte, je vais vous la 
détailler : 

L'écran se décompose en cinq ta- 
bleaux : 

A droite : le tableau dit "de travail". 
C'est dans cette fenêtre que se déroule 
le programme. 

Au milieu, en haut : le tableau dit "de 
résultats". La valeur de la résistance 
calculée ainsi que les couleurs corres- 
pondantes y sont inscrites. 
Au milieu, en bas : l'indispensable 
tableau des couleurs indiquant les dif- 
férentes couleurs et leur numéro 
correspondant. 

A gauche, en bas : second tableau 
indispensable : celui des multiplica- 
teurs. Y sont indiquées les valeurs- de 
multiplicateurs de chaque couleurs : 
or, noir, marron, rouge, orange, 
jaune, vert et bleu. 
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VARIABLE 


FONCTION 


COULS (10) 


Tableau renfermant chacune des cou- 
leurs, numérotées de à 10 


MULTS (7) 


Tableau renfermant les valeurs 
alphanumériques des multiplicateurs 
correspondant aux couleurs, numé- 
rotées de à 7 j 


NRCL (10) 


Tableau renfermant le numéro de 
chacune des couleurs 


MDEC 


Variable correspondant au MODE 
DE TRAVAIL j! 
MDEC = f : mode couleur 1 
MDEC * 2 : mode chiffre [ 


MDC$ 


Valeur alphanumérique du mode de 1 
travail : couleur ou chiffre jj 


LIGNE 


Variable indiquant le sous- 
programme à brancher, suivant le 
mode, après appui sur une des tou- 
ches du menu. 


VALEUR1S 


Valeur alphanumérique du n° de la 
l ere couleur 


VALEUR2J 


Valeur alphanumérique du n° de la 
2 e couleur 


VALEUR3S 


Assemblage de VALEUR1S et 
VALEUR2S dans cet ordre 


■VALEUR 


Valeur de la résistance 
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A gauche, en haut : le tableau récapi- 
tulatif des touches à utiliser et leur 
effet. 

UTILISATION 

Ce programme fonctionne suivant 
deux modes différents : 

a. Mode couleur : on entre chacune 
des couleurs et l'ordinateur calcule la 
valeur correspondant à l'association 
de ces couleurs. 

Remarque : le programme débute 
sous ce mode. 

b. Mode chiffre : cette fois on entre 
les deux premiers chiffres et la valeur 
du multiplicateur, le tout pour obte- 
nir les différentes couleurs. 

Les touches : 

Z - X : choix de la première couleur 
ou du premier chiffre suivant le mode. 

C - V : choix de la seconde couleur 



ou du second chiffre, suivant le mode. 
B - N : choix de la troisième couleur 
ou du multiplicateur, suivant le mode. 
ENTER : validation après choix des 
trois couleurs'* ou des deux chiffres 
+ multiplicateur, suivant le mode. 

RESULTAT 

Le résultat s'affiche dans le tableau 
des résultats : on obtient la valeur de 
la résistance cherchée et les trois 
couleurs, à lire de gauche à droite 
pour les avoir dans l'ordre, 
correspondant à la valeur. 

* En effet seules trois couleurs sont 
utilisées alors que sur une résistance, 
il en existe une quatrième, un peu plus 
espacée des autres qui correspond à la 
tolérance. Elle n'est pas indispensable, 
c'est pourquoi elle n'est pas 
représentée dans le programme. 



5 CALL M4E:CALL &8B00 >0T- 


10 ' 




>LA 


26 ' 




>LB 


30 ' 


KANUSOFT 


>LC 


4B ' 


ET CPC 


>LD 


50 ' 


^ PROPOSENT 


>LE 


69 " 




>LF 


70 ' 


R ES I S T OR 


>LG 


80 ' 




>LH 


W 


>LJ 


100 


:>RB 


110 ' MODE D'EMPLOI 


>RC 


120 H 


ODE 2: BORDER 0:1 


« 0.0: MK 1.1 >CZ 



130 LOCATE 24.2:PR1NT "R E S 1 S T >ZA 
OR ici 1987 E.B." 
148 LOCATE 8.7:PR1NT "COMME SON NOM M 
L'INDIOUE .RESISTOR EST UN PROBRA 
MME TRAITANT" 

150 LOCATE B,9:PRINT "CES COMPOSANT >VU 
S ET PLUS PARTICULIEREMENT LE CA 
LCUL DE LEUR" 

160 LOCATE B.UsPRINT "VALEUR ." >A¥ 
170 LOCATE B.13:PRINT "SON UTILISAT >ZV 
ION EST SIMPLE : IL SUFFIT DE PRESS - 
ER LES TOUCHES" 

1B0 LOCATE 8, 15: PR1NT "CORRESPONDAN >CD 
TES POUR CHAN6ER LA VALEUR OU LA CO 
ULEUR AFFICHEE .". 

190 LOCATE 8,17:PRINT "LA VALIDATIO >BA 
N SE FAIT A L'AIDE DE LA TOUCHE <EN 
TES). " 

200 LOCATE 1,25:PRINT "UNE TOUCHE . 
,,":CALL MB06:CLS 
210 LOCATE 24,2:PRINT "R E S I S T 
R ic) 19B7 E.B." 
220 LOCATE 28, 4: PRINT "NOTION DE RE 
SISTANCE" 



230 LOCATE B,6:PRINT "UN RESISTOR E >UH + 
ST UN PETIT COMPOSANT UTILISE EN EL 
ECTRONWUE" 

240 LOCATE B,8:PRINT "ET OUI A POUR >UE 
EFFET DE LAISSER PLUS OU MOINS Bit 
N PASSER LE" 

250 LOCATE S,10:PRINT "COURANT ELEC >UE 
TRIQUE . IMAGINEZ UNE CANALISATION 
ENTARTREE :" 

260 LOCATE B,12:PRINT "L'EAU EPROUV >WR 
E PLUS OU MOINS DE MAL A PASSER A T 
RAVERS CELLE-" 

270 LOCATE B.14:PRINT "CI . LE RESI >ÎN 
STOR CORRESPOND DONC A CE PETIT TUY 
AU ET LA RESIS-" 

280 LOCATE 8, 16: PRINT "TANCE DE CE >CU 
RESISTOR CORRESPOND AU TARTRE DU TU 
YAU.LA RESISTAN-" 

290 LOCATE B.lBlPRINT "CE S'EXPRIME >A6 
EN OHM <":CHR*(191);") ET SE CALCU 
LE EN MULTIPLIANT" 

300 LOCATE 8,20:PRINT "L'INTENSITE >Y0 
(EN AMPERES) PAR LA TENSION !EN VOL 
TS) DU COURANT" 

310 LOCATE B,22:PRINT "QUI PARCOURT >RB 
LE RESISTOR, D'OU LA CELEBRE FORMU 
LE :R=U/I " 

320 LOCATE 8,24:PRINT " (R=RESISTANC >NW 
E.IHENSION. ^INTENSITE) ." 
330 LOCATE 1,25:PRINT "UNE TOUCHE . >¥B 
..":CALL 8»6:CLS 

340 LOCATE 24,2:PRINT "R E S I S T >ZD 
OR (c) 1987 E.B." 
350 LOCATE 28,4:PRINT "NOTION DE RE >PB 
SISTANCE" 

360 LOCATE B.6:PRINT "UN RESISTOR A >UH 
, UNE FORME CYLINDRIQUE ET 3 BAGUES ' . 
'DE COULEURS" 



CHARGEMENT 

Taper le listing qui suit et le 

sauvegarder sous le nom de 

"RESISTOR". 

Il ne restera plus qu'à faire 

RUN"RESISTOR" pour lancer ce 

programme. 

AVERTISSEMENT 

Pendant la frappe du listing, ne vous 
amusez pas à taper un RUN, car la 
première ligne contient l'appel d'une 
routine qui inhibe les interruptions 
(autrement dit il n'est pas possible de 
faire un break !). De même, à la fin, 
sauvegardez avant de lancer, sinon 
vous seriez obligé de faire un reset 
total de la machine. Fâcheux, non ? 
C'était plus fort que moi, je n'ai pas 
pu y RESISTER ! (Je sais, c'était 
facile mais je tenais quand même à la 
sortir). 

370 LOCATE 8,B:PRINT "SONT PEINTES >ZM 
SUR CELUI-CI , CES COULEURS PERMETT 
ENT DE C0NNAI-" 

380 LOCATE 8. 10: PRINT "TRE LA VALEU >MC 
R DE LA RESISTANCE . ON PROCEDE COM 
ME CECI:" 

390 LOCATE 18,12:PRINT "BAGUE 1:CH1 >Ui / 
FFRE 1" 

400 LOCATE 18,14:PRINT "BAGUE 2:CHI >LH / 
FFRE 2" 

410 LOCATE 18.16:PRINT "BAGUE 3:MUL >UE 
TIPLICATEUR" 

420 LOCATE 8,18: PRINT "EX: 1:R0UGE >ZT 
2:0RAN6E 3;VERT" 

430 LOCATE 8.20:PRINT "VALEUR = (RO >GZ 
U6E+0RANGEWERT =(2+3)*100000=23»l 
09000=2300000 ";CHR*(191I 
440 LOCATE 1,25:PRINT "UNE TOUCHE , >YD 
.."iMLL &BB06:CLS 

450 LOCATE 24, 2: PRINT "R E S I S T >ZF 
R ic) 1987 E.B." 
460 LOCATE 8,6:PRINT "UTILISATION D >UA 
U PROGRAMME : DANS LE TABLEAU EN HA 
UT A 6AUCHE" 

470 LOCATE B,8:PRINT "SONT INDIQUEE >HK 
S LES TOUCHES A PRESSER ET LEUR EFF 
ET ." 

480 LOCATE B,10:PRINT "LE TABLEAU D >HR 
U DESSOUS INDIQUE LES NUMEROS DE CH 
AQUE COULEUR" 

490 LOCATE 8,12:PRINT "ET LEUR VALE >AK 
UR DE MULTIPLICATEUR . A DROITE LE 
TABLEAU INDIQUE" 

500 LOCATE 8,14:PRINT "CHAQUE COULE >WV 
UR ET LEUR NUMERO CORRESPONDANT . A 
U DESSUS EST" 
.510 LOCATE 8,lè:PRINT "DESSINEE UNE >TN 
1 RESISTANCE AVEC SES 3 BAGUES ET LA 



r2CH 



